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ABSTRACT 

T^T ■ BPagran T» a mod T f Ta^ varala* «« 
; *INOec. 1? -.0lBC i MXCHtf„ l! T.^J.Tim!'!!" .vlK 
!..:!!!?!!"'?_, *«»*!"« , ottttrn f of both 950 




lllllV " n!|- XC J! B I: o 'i fl08t ^•«*Te.I to that of 
-2Sii-«- 0n|y jT J5'-*? S . *••* MlMttM and the halt 
addresses are dTffapant, 



2'i REQUIREMENTS 

2.1 EfliuTo^ent 

Standard ?Df-l5 *Tth » i-TnTmu* of 8192 word, of 

oof e "tBocy i 

2.2 Pfooram Storage 

TH e ofoortm oeoupTea the fin* 3400(8) words of the 
memory Mold Tn whloh It Ta oaeraUng' 

3. LOADING PROCEDURE 

Tha Digram Ta pushed In ABS mode, w l«h H RJ 
I ease' , 



S'.i ^ rfftlly ' th « orogram | s leaded Tnte mamery Held 

a} Plaoa tha tape Tn tha reader, 

6 r t Set the Addrees Switches ta 17780'. 

o, P'esa RESET, then READ IN*, 

4ho* the tase has been read, the eo*p u ter stosj, 
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3,2 The opogram can ba loaded Into thi lower half of 
any 8K memory bank, by olaelng the maohlne ]r> 3ANK 
MOOEi and sitting Address Switches 3*4 to the 
dasTrad bank number', 



4', STARTING procedure 



4',1 Starting Addreasl 00200, Sat the Address swltehes 
to 00200, end ppvae START', 



4',2 Restarting, To re-estebTleh the Initial 

oondltlons, start tha program at addrass »0200, 

where f Te the ourrent memory bank Tn whlgh the 
program js located, 

Te retain ourrent program eondltTona, restart In 
location ?0215, 



5, operating procedures 

A memory field Ta one 4096-werd segment, Fields 
ere numbered sequentially from 00 through J7(B>, 
rTeld* 00-07 are In memory bled* 0, Melds 10*17 In 
block 1, and so on, 

T^e ooerator oommunToates with the program via the 
AC Switches or the Teletype Keyboard', 

Typing errors oan be eliminated by striking RUBOUT, 
The P'ogra* will delete typed inout for that line, 
and request a new entry, 



5,1 initial Ooerator Aotlon 



5,1,1 Test Ll-lts, After starting at loeatTon 00200, the 
program types 

TEST LlHtTS 

The a'ea to be tested \a specified by tyo'na the 
aetal Jumpers of the limiting memory HM H s, The 
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two numbers art separated by a comma, and followed 
Si ** J* rr l** a return', Any two Holds, deluding 
tjat wniph contains the program, may be seieeted at 
limlt'i and either I TmT t may be typad f t pat. 

EXamplosi ' 

TEST LIMITS 
20,05 

T,»VJ, f h iU 00 *5i2i 9h a ?» JMTufJvi (addresses 
fSf 2? o TJ hrOufl t! "W* ! T I'I »• ««»t,d, Note that 
two digits must ba typed »or aaeh Held number , 

* tingle field may ba ohpteni 

TEST LIMITS 
03,03 

If, however, the tlng'l't Held T» that containing 
the program, the choice wT 1 1 It raJtettdl 

TEST LIMITS 

00,00 

PROGRAM JS JN PICLO 00 

TEST LIMITS 

The proarem wTll proceed whtn acceptable llmftt 
have been ehosen t 

If b ?] y * 5l n ? ,e "'^t T " "••■ to sosejfy a Ht|d, 

SI i .5 fT ?-'. d nunba '' flrtattr than 37{8> Is t yB ed, 

the limits wT I I net be accepted', An example of 
both errors! 

TEST LIMITS 

? 

TEST LIMITS 



Do not select mora memory than 



la 



CAUTlONi 

tetually available, ,,g,, typing an yooer i|m It tf 
1J when only fields 00-07 art provided, The action 
of t"e oroaram | s unpredictable when trying to 
address nonexistent memory locations', 
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5,1,2 Set up ACS', After trie teet Hfllts have been 
accepted, the prooram typM 

SETUP ACS 

Stt the AC SwTtehea aa desired (Me Table) I fer 

normal operation, all the awltoheo are tat to 0, 

Strike any Kay on the Keyboard, the neaaaga 

PROGRAM !S IN FIELD B0 

fa DPlntedi and the teat beolne, It will run 
aentl"U8ua|y until etoopad by the operator, 
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5U.3 Tab | • of AC Switch Settings 
ACS state Function 



3-5 



i 



i 



000 



9 







i 


11 







i 


12 







1 


13 



i 


14 



i 



DeterTbfd 
In Section 

Continuous operation tnermat ) 5,2,2 

Stop af tar tasting eurrsnt 
flaid Of after error print- 
out 

Pjlnt error data and eon« 5,2,2 

tTnu» (normal; 

Halt before arror printout 

Proceed as selected by 5,2,3 

ACSi (normal) ' ' 

King ba| | on grrofi no print* 
outi JCS 1 Ta Ignored', 

0; all thraa tasts Tn sueess- 5,l',4 

a?on {normal J 

Any switch gat to 1 salaets 

that taat 

Automatic program releoatlon 5,3,3 

(normil) 

Oe not rsloeata program, 

PMnt "PROGRAM JS IN TICLD 5,3,1 
ff".after each relocation 
(nopmtl j 

Oe not print massage 

Normal' program pel'oeatlen 5,3,4 

sequence 

force relocation to speelf- 

led field 

Normal' taat saquence 5,4 
'•Quest seope Issd 

Test entire word (norma! ) 5,5 
Suppress printout for select, 
ed bits 



5,1,4 j: i \v , i IM . t irj ™ i:?>...:*:**^>.*" »'••■...■. 
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51 

Test 1 UCS 3), Worst-case pattern for 800-naee 

memory staeke, 
T«st Z (ACS 4), Worst-eaae pattern for 950-nsee 

stack*', 
Test 3 (ACS 5), Switching failures In ceres 

subjeet to repeated ha|f«se|eet 

our rants', 

If all three awltchaa are aet to 0. tha three teata 

are done In sucpeasTon over the entire test area, 
Jf any swTteh la sat to I, the teat apaelfled by 

that swftah la psrfbrmsd', 



5'iZ Program Operation 



5,2,1 in normal operation, the teata are performed In 

ordari li 2, and 3, A deserlotlon Is given In 
Sectlen 9. 

Testa I and 2 are Identfoal efccept ?or the pattern 
wrlttan Tn memory', The pattern Ts written In all 
He'jda, then eaah word, starting at the lowest 
addraas, Is tasted for faTTurss, When all 
I'oeatlons nave been tested, the complement of the 
pattern |s wrlttan and tested*, 

In teat 3, the entire test area Ts fll'lad with is, 
A single word Is Bleared to 0s, and repeatedly 
addraasad', Other words af.feotad by the ha|f«se|eet 
eurrents are then tested for awltohlng fallure'a, 

After the selected tests have been exeeutedi the 
program Ts reioeated (sea Section 5',3> anp the 
tests are repeatad, 



5,2,2 Program. centre I I ad hal'tsl ACS 0«1', 

Te Tnsure oregram continuity, the sensole STOP 
switch should not be used to halt the program, AC 
Switches z and 1 provide or ogram*eontro I I ed 
stooping polntsi at whleh the oserator may ehange 
th» settings of the otner AC Swltjhes, The C'anges 
t«Ke ef'ect I'wmeoJatefy after resuming operation by 
pressing CONTINUE', 
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ACS Z 01 The program runs continuous |y , 

ii Thj program will stoe at ■] thar of two 

a. After an error printout, Contents 
of bits 6-17 «f the MO register 
are 9734', 

b. * * t«P testing hat boon oemoittod 
I n , *"• eurrent Me|d, 
C(M0f6-17>} a 0642, 

in both casta, the ACS may be changtd', Prets CONT 

lS. 8 *SS? a *:.Jl ?*' *? S "**■'"•■ have been ehanged, 

« ^t**?" 1 b 'I? 9 •*» e u*»<i Ti terminated, «ng tht 
ne„ switch stttlnos take afftet', I? the ACS have 

?i •£?!£ ?* ,n »' d « **• *•■« returnee from the "point 

at which Tt was steeosd, 

ACS 1 tt Error data are oHnttd as usual, 

li thy prpsfam halts before the trrer 
orlnteut, C(M0U«i7n * 0730, 

I! *'!'!•?' p '" 8 C0Nf - *CS shangts are accepted 
immediately, 

;;«;;'«' /**•: •»» printouts have b e.„ 

inhibited (see Section e,i,3>, ACS 1 no longer has 

VtU d'2h 121 ** S 5 VI 1 " gM ■■ h«Tt only ift.r 
a field has been totted feaee b above)', 

5,2,3 Ringing the Error Belli ACS 2", 

I! *°!. 2 T 'i "* *? u ' »«Tl rings at th. 

occurrence pf an error, the «rror printout Is 
suppressed, end Acs i !, Ignortd', The be | 

Im^IJV 1 :. U9 ' ful * h- " •" Intermittent error e 
suspected) thapreoram does not stop, and the 

ullt tl V ^l"* /0r , p,flul * f '^ •» the bell glv„ an 
index to the performance of the core etaek, 

Note, however, that ACS remains In effestl tht 
o^ooram will halt after the bell Tf ACS B la sat to 



5)3 Prooram RaloeatTon 



5,3,1 Automatic Relocation, When all testa have bean 
eomoietad In the eelaoted fields, the program is 



MXC15B 



PAGE 



f e | o 

erro 
this 
othe 

proo 

Mel 
area 

exam 
llmT 

Will 

■Mb' 
data 

tha 



c«ted 
r wa 

new 
r aa 

ram ] 
di u 
Ff 
Die, 
t», 
cataa 
00 t 
Ding 
etad 

DfOOP 



to th 
a f bu 
loeatl 
Tasted 
a rej'o 
ntl| 
om tha 

aasum 
After 

from 
o fie 
any 
dur Ing 
am wT | 



e his 
nd d 
OHi t 
III 
eated 
Tt ? 
re, T 
e fT 
tha 
field 
e|d 07, 
V Met 
the 
re 



hast teite 

urlno the 

he tests a 

Ids', Aft 

fn the ne 

aaohea th 

t geea baa 

e'lda 02»1 

first tea 

02 te fla 

then 06j 

d ( s > In 

previous r 

oeate te f 



d f 
or 
re 
ar 

xt 
a 

k t 
^ 
t 

Id 
05| 

whl 
un', 
la|' 



laid In 
ecedlno 

repeat 
each te 

lower 
bottom 
o the 
are oho 
fun i t 
10'. ft 

0*i 03 
eh an 
From 
d 10 on 



whl 

run, 

ed 1 

st ru 

erro 
of th 

too, 
sen a 

he p 
pm th 
i «n 
erro 
Me| 
ee ne 



eh no 
From 
n the 
n, the 
r«f rae 
e teat 
For 
s teat 
rogram 
ere It 
d 02, 
r waa 
d 02, 
'o. 



immediately after each rslooMlon, the message 

PROGRAM IS IN FIELD ff 



la printed. The message may 
setting AC Switch It to i, 
resume when ACS 11 Is set to 0. 



be suppressed by 
The printout wl I I 



5',3,2 Exceptions, The pfpgram wl i'T not relocate 
automatically under any of the following 
conditional 



a. 

b', 
o'i 

d', 



Only one field has been selected for testing, 

There are no error-free tested fields, 

ACS 9 Is set to 1 (see section 5,3,4), 

A foreed relocation has been made (see Section 
5.3,91. 



In eaeh of these eases, the program remains where 
jt T si and the the test run le repeated, 



5,3,3 Program protection, To proteet against program 
failures, two Internal checks are made, First, the 
orogram wltl not relocate to any field In which an 
error was detected during the orevlous test run, 
Seoondi when relocation does take o|aee, the 
transfer is checked word by word with the souroe 
fleldl errors In transfer are tabulated and printed 
(see Seet'o" 6.2,1) . 
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5,3,4 «*l8e"t!on oraventedl ACS 9*. fhe operator can 
prevent automatic relocation by utTno ACS 9, 

ACs ' 01 Relocation oecurs norma j'l'y, 

It Proflram does not raleeatei but 
eontlnuss testing from Its 
eurr.ent location", 

When ACS 9 | 8 set to again, automatic relocation 
wl I I resume, 



5,3,5 



reread Rel'oeatleni ACS 12', The oo'erator ean fore. 

.?■ llVil *° p ! l ? e,tt t0 •"* specified field, by 
using ACS 12, as fell sws f 

»', Set ACS Z to 1, and Malt for the program to 
ha 1 1 , 

b', Set ACS a to and ACS £2 to 1, Press 

CONTINUE, The orogram types 

PUT ACS 12 OM * 
and waits for this to be dona', 



the program 



0*. Set ACS 12 to 0', Immediately, 
tyees 

GO TO FJEID 

and waits fbr a f|e|d number', 

d', tyoe a t w 6« digit field number'. The program 
relocates to the new field, and oroeeeds with 
tne test, 

A'tar • fbresd relocation, the program win no 

longer relocate Itself automatleal I y , T 8 restore 

!5!;!«! 8 2« ° fu ?? tTo *' '"tart the program from 
address 200, setting new test limits, 

[erejd relooatlbn will ne t ©ceur under either of 
the f o | lowing oondl tlonsl 

a', An epror was detected In the destination fUio 
during the nreeedlng test run, i« this case, 
the message 

ERROR IN SELECTED <K 
GO T9 r I Eud 
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Is typed, Type a new field number, or a 
Carriage Return to rata)* the program In the 
currant field, 

b', Ah error ecegre during relocation, The error 
Inf ormatlbn Te printed (sea Section 6,2, l)i 
fallowed oy "CO TO FIELD"', Prsoeed as 
daserTbad In ease A above, 

If the reouestod daatTnatTon paid Is the on|y one 
that hae been selected for testing, the program 
will relocate, and than restart at program address 
200, with the message "TEST LIMITS", so that new 
limits can be chosen'. 



3,4 



Seooe Loossl ACS 13', 

This Program option allows the operator to examine 
signal traces on a scope under ths conditions 
Imposed by the three teste, Ths test functions are 
performed on one or mere memory locations, but no 
error cheeking Is dene, ne messages are printed, 
and there are no halts, For tests 1 and 2, any 
number of consecutive locations, from 1 te 409*, 
may be Included In the leop, for test 3, only ens 
register Is used, 

Te Initiate a seooe looo, pressed as follewsi 

a', Halt the program by setting ACS Z to 1, 

b', Set ACS 13 to 1, and press CONTJNuE, The 
message "TEST" Is printed, and the program 
waits for a reouest, 

o', Type the numpsr of the desired tsst. An 
automatic CR fallows, and the message 

FIRST aD« 

Is printed, 

d'i Type the address of the first location o' tne 

group to ds Included In the I'oopl this must Be 

a six-digit Octal Integer', The orogram 
responds with a CR and the message 

LAST AHR 

f, Type the address of the last location, This 
may pe higher or lower than the first a^d'ass'. 
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T*e seooe > isos Ts b«g U n a* soon as the last address 
,8 . i t ^ ? d ' tht |B0 ? wT|1 continue until the STOP 
2- 1 *?--!" °/ M » e0 '« - T ! re«ue«t another loop, or to 
9« baok to the normal tost program, restsrt at 
program looatTon 20a, 

Examples of seosi loop roouaatsi 

TEST 2 

FJRSt ADR 010100 

LAST ADR 0*0100 

Th» pattern for Tut 2 ?s wrlttan throughout Maid 
li but ths loop Includes only looatTon 100 In th«t 
" ' a l o i 

TEST 1 

FIRST AOR 030102 

LAST AOR 03777? 

Thaoatttfn for test I Is written In Hold 03, Tha 
looo Ineludos locations 0102 thpough 7777 In that 

T I • I | 

Tha afaa Included In {he loop may over lap *emopy 

i«iS!'#i b V! - th ! ?•?? »***•'? wTTl be wpftten only 
in tho Mold containing tha first address) 

TEST 2 

FIRST AQR 024000 

LAST ADR 016770 

T^a pattern wT 1 1 ba written only Tn field 2, thpuan 
»»!.»■ B wI " Tn ?lude addresses 016770 throuah 
024000, Note that tha higher limit may ba 
seeemed first, 

Tor Test 3, only tha first address Is used, as this 
is a single register test, Hewevar, both addresses 
must ba given, the oxempj'a Illustrates what 
haooans when a selected address Is Tn tha program 

TEST 3 

FIRST AQR 002534 

HRST ADR IS WITHIN PROGRAM 

PROGRAM IS IN FIELD 00 

FIRST ADR 012534 

LAST ADR 012534 
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I* anything pther than li 2 # or 3 Is typed for a 

test "umber. Tt wT I i bo pejeetedl 

TEST 4 
/? 

TEST 



S'.a'.l Program ieoe fop Tests 1 »nd 2, tha loop eerfor«« 
tha eompTaflant-Pacbmb'l ement operation on atoh of 
tha selected peflletera Tn turn, Tha loop Is 12 
Instructions I' o n e I 

9CP1 EEM /ENABLE EXTEND MODE 

LAC» MEMADR /READ 

GMA /COMPLEMENT D*TA 

DAC« MEMADR /WRITE 

LAC MEMADR /ADDRESS 

SAD LTST /COMPARE TO LAST 

JMP STSCP . /DONE 

ISH MEMADR /INCREMENT ADR 

JMP SCPl /LOBP 

STSCP LAC ADRA /FIRST ADR 

DAC MEMADR /RESTORE COUNTER 

JMP SCPl /GO TO TOP OF LOOP 



5'i4,2 PP09P»m looo fop test 3, After writing a pattaPn 
a* all la Tn tha selected, field, the teat location 
Is cleared to 2b, and repaatadly read', The loop Is 
two Instructions Tonal 

LACa A5RA 
JMP ',-1 



5,5 Bit Supopessloni ACS 14 

Qnoe a cartloular bit posltTon (and henoa Its eOFe 
olane> has demonstrated a consistent f »1 I wf •* error 
printouts due to thTs bit can be eliminated from 
subsequent passes', Proceed as follows! 

», Halt the oroaran by setting ACS S to 1, 
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b'i Set ACS to and ACS 14 to i', The massage 

SUPPRESS 

is Printed, and the program waits f op Input, 

o'i Set ACS 14 to Z\ Typa the number of the bit 
position to Pa suppressed, as a decimal Integer 
< B -17), If mora than one bit Is to be 
suppressed* separate the numbers by commas, 

d'. Strike the CR Key*. The tests wl i'T start from 
the beginning again) the selected b|t 8 wl|| be 
Ignored for printout!', 

Requests for bit suppression may be made at any 

time, and as frequently ae la desired, Each 

succeeding request wipes out the effect of the 

previous onei to retain the suooreeslen of » bit, 
Its number must be typed again, 

To remove al ^ suppression requests, proeeed as for 
a new request', After the program types "SUPPRESS", 
type a carriage Return, 

Eiamolesi 

SUPPRESS <CR> 
SUPPRESS 4,9,13 <CR> 

SUPPRESS <CR> (removes a!!' suppression: 



MXC15B 



PAGE 15 



6, 



ERRORS 



6,1 



Test Data Errors 



6 ■ 1 , 1 Data column header, immediately aftar the first 
error Is detested, the following header 1* Oflnted, 
Identifying the eelumns of error datai 



TEST 


OCTAL 


ADR 


TEST 






OCTAL 


AOR 




GOOD 







GOOD 



SAD PAT CONTROL WORD 



The number*-*!, 2, op 3»»»of the 
test which detected the error, 

The octal address of the location 
oentafnlna the data In erro' 

What the contents should have been, 
This Is always either 000080 or 
777777, 

The data as read, One or more bits 
will be In error', The datum Is 
printed as an oetal Integer, 

The word used to generate the 

checkerboard oattem for tht 

current teat', For test l, this 

word la 774000 or {fop the 

complement pattern) 303774, For 

test 2 It Is 525250 or 252524, No 
control word Is used for tsst 3, 

Once orlnted, the hsader will not be crlnted again 
until the program Is restarted from 200 or 215, 



BAD 



PAT CONTROL 
WORD 



6',li2 Data Printout', Error data ere printed as soon as 
a« error has been detected, a typical ortntout 
might look like thlsl 



TEST OCTAL ADR GOOD 



BAD 



PAT CONTROL WORD 



1 21400? 000000 00P001 776000 

1 260200 777777 776777 003774 

2 .514000 00P000 000001 252524 

3 J37555 777777 377777 
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in the example, tests 1 and 2 detected a "oloked 
up" bit Jn location 4000 of f Ta I d 1, and t 9 ,t i 
feund a "dropped" bTt In location 0200 of flsld 6? 
Test 3 caught a swltehsd com Tn location 7555 of 



6,1,3 Printouts InhTbTtod'. During lono tt>t runs, 
•Kesisivs error orlntouts weuld uss too much time 

automatically suepreeses tsst data printouts after 
64 errors, The message 

PRINTOUTS INHIBITED 

la typed) the printouts will not be restored until 
2.? *. B I 0fl I ,m '" ''started it address 0200, 
Printouts for relocation errors are net affeet.d, 



6'i2 Other errors 



6,8,1 Program reieeatlon errors', As errors are detseted 
♦■ P l2l * h, /«i'"**'?" ° f *he program from ons field 
te the next, the data are printed. Column heads 
arc the sama as for data printouts, Exampiei 

TEST OCTAL ADR 0000 BAD PAT CONTROL WORD 

031000 741000 740000 

031001 611005 601005 

031002 760027 760007 

NO MORE ERRORS 




occur during a forced relocation, the orogra* w ! , , 
return to the oontrol routine aftor the printout, 

!2 d *i J??* " G ° T0 FIELD "' t0 P8auiSt a "ot^ 
destination, 
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6,2,2 Error In Selected Field', Jf, In a forced 
pe I iseat Ton* the daatl n»t1 on f T • )' d had produced an 
afrar during the previous teat run, the message 

ERROR JN SELECTED FIELD 
GO TO FIELD 

Is printed, i «ew destination must ba chosen, 



6,2,3 Addrass within program (Soopa loop reouast), V , 

In soaelfylno limits fop a seoolng loop, the 

operator tyoos an addrass that Is within the araa 
seoupfad by the program, the massage 

FIRST Cor LAST] ADDRESS IS WITHIN PROGRAM 
PROGRAM JS IN FjELO ff, 

Is tyeed, and the ppoopan repeats the paauast for 
wMeh«ver addrass Is at fault', 



7, RESTRICTIONS 



7',i Hardware, The test will not eoepate I" a °0P"15 
with less than 8K of" core memory', 



7,2 Program, 



7,2,1 In selecting test limits (see Section 5,1,1), the 
oserator should not soaclfy more memory than Is 
actual ly available, The program. wl I I Behave 
unopetllctaply otherwise, 



7,2,2 During normal test execution, the console STOP 
swltoh should not be used to halt the program for 
the Duroose of resetting AC switches', ACS ? and 1 
provide program -control led ha|ts', 
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8, MISCELLANEOUS 

8'il Execution tint, 

A'! ! times are aoprcilmate, 



S',1,1 950-nsee memory ltaek', Test* 1 and 2 take 4,8 
seconds to complete one «K f T • I d ". Test 3 reputes 

2,4 seconds oar f T •id'. 



6'.I,2 a00-ntae stack, Teita i and 2 taka 4 second pir 
field, Tast 3 taka* 2 seconds pap Maid, 



9\ DESCRIPTION 



9'ii Tast a 1 and 2', 

These tests mi Identical except for tha oattepn of 
l's and a's stopsd Tn memory, 

The BPlnelpal' fault fer which a checkerboard 
o^oflf «m taats la that of a sourlous "1" «lana| 
a«nepatad aa tha result of excessive "nol»e« 
current Tn a opps afray sense wTndlng, Tha noTaa 
la a consequence of tha path which the sense wire 
takes through the array', Eaoh time the sense wire 
passes fpom a cere Tn tha atate through o«e In 
the. i state, and vice versa (that Is, eaoh time 
there Is a ehanpa In the magnetic fTe|'d)i a small 
voitaaa Is Induced Tn tha wife, If the combination 
of these tiny pits f noise ppoduoes a voltage hl9h 
enough to trigger the sense amplifier, a spurious 
"1" Is detested', 

The checkerboard oattsrn Is designed to oroduee the 
maxTmum number of a-i and l-a Junctions In the 
sense wipe's oath, thus aeneratlnp the greatest 
amount of noise eurrsnt', This "worst-case" Dattarn 
Is different for oore arrays with different winding 
paths, In the PoP.lS, tws different eor§ staoks 
are used, requiring two werst-oasa patterns, 



MXC15B 
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The pattern of Test 1 provides a worst ease for the 
800«n'ae memory staeK', It Is shown below as It 
would appear Tn ens portion of ens cere array 
<&4x6« eores)', Ths pattern shown rapeats 
thrsuflheut the ar^ay', 

y.axls 



*«ax 1 s 



11111U100000000,.', , 
ujiiili00000000 

1111111100000000 

1111111100000000 

1111111100000000 
1111111100000000 
1111111100000000 

1111111100000000 
00000000il£lllll, ,',, 

0000000011111111 
0000000011111111 
0000000011111111 

000000001l£lllll 
2000000011111111 
0000300011111111 

?0000000iiniiii 



in tarns of core address, the ar?ay would Be 
fo | lows! 



as 



Addresses 


Contents (oetal ) 


0003.0007 
0010.0017 
0020.0027 


777777 

000000 
777777 


• i i i • 

0070.0077 
0103. 01P7 
0110.0117 


i • i i 

000000 

020000 
777777 



MX6158 
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Test 2 uses ft worst-case pattern for the 950-nsee 
memory staeK, This oattem la shown below for a 
portion of one eors array) 



x«aiJa 





y-axls 


z 


10101010,',,'. 


I 


10101010 


2 


10101010 


3 


1010^010 


3e 


1 1 1 t 1 

10101010 


37 


10101010 


40 


0i0£0{0i; ',.■,, 


<1 


01010101 


«2 


010^0^01 


76 


0i0i0i0l 


77 


01010101,,., 



in terms of tddrtasi 

Addresses Contents 



0000*0037 


777777 


0040.0077 


000000 


0100.0137 


000000 


0149. 0i77 


777777 


0200.0237 


777777 


0240.0277 


000000 



MXC15B 
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Both 

wrltt 

8*art 

lectt 

I scat 

depos 

peoem 

eonte 

oontp 

Infer 

the n 

same 

esme I 

the 

980P 

aid t 



tests 
en th 
1 no w 
Ion I 
Ion ar 
Hed 
p I emen 
nts a 
o I wo 
watjsn 
ext I'o 
loeat 
ement- 
eonten 
as an 
hi Us 



or eoeed 
f ouflhou 
Uh th 

9 t«>* 

• read 

In t 
tad, a 
ra fee 

rdi If 

Is o 
oat I eh, 

Ton Is 
r eeomp I 
ts In 
effor T 
t goes 



In t 
t th 
e I'o 
ed _ 1 

ntb 
he 

nd d 

d en 

any 

rlnte 

If 

test 
eifint 

turn 
s eau 
to th 



his m 
e en 
west 
n tur 
the 
test 
eposl 
ee m 
bit 
di a 
no er 
ed fu 
opep 
I st 
ght, 
e nek 



annepi Th 
tire tes 

addressi 
n^ The o 
AC, eomp 

location 
ted onee 
ope and e 
b ape 1 
nd the te 
pop Is 
Pthep by 
atlen on 
■ptlna wl 
the data 
t loeatlo 



e patt 
t apea. 

eaeh 
entente 
|'e«ente 
, than 

"OPO , 

emeaped 
n eppe 
st QPoe 
deteete 
BOP* epm 

eaeh 
th bit 

ape o 
pi • 



epn Is 
Then, 

Memory 
of ths 

di and 

read, 

The 

with a 

p, the 

eeds to 

d, the 

Ing the 

bit of 

1', *S 

rlntod, 



When • II I'oeatlons Tn the antlpe teet apea have 
been examined, the eomolefflont of the pattern Is 
written, and the test Is pepeated", 



9,8 Test 3 

TMs test will' catch awltohlna failure* 1" cores 
subjected to reoeated ha|f*se|'eet ouppente, 

The entlpe «emopy f T • I'd Is filled with is, The 
contents of location 0000 ape e'I'saped to 7s, then 
read Into the AC 1024 times in rapid succession, 
The contents of every othep poglstep ha I f-se I eeted 
by k»axls line ape then examined to see ]* any of 
the bits on that x.|Tne have switched fpem l to 0-, 
I« IlKe ma-nn«p, the remaining 63 x-axTs Unas are 
tested, The test Tf oepformed In each f 1 • i d In 
turn', 



p AGE 1 MXC15B 



/POP-lb 
/ 






/ 

'J. RICHARDSON 

/Di MACOMBER 

/Ji M, GRAET2 

/ 



PAGE 



<XCI33 



MXC15B 



.TITLE. MXC15B 
,ABS 



?2001 



.LOC 



00001 


600001 


JMP 


1 


Z0002 


777777 


LAW 


•i 


eaevs 


777777 


LAW 


•1 


S0004 


777777 


LAW 


-1 


0000!> 


777/77 


LAW 
/ 

TLS»7jJ0406 


-1 




722*^6 






700401 


TSF«700401 






7003^)1 


KSFs700301 






700312 


KRBs700312 






7210U0 


PAXs72l000 






707764 


EBA«707764 






707742 


EPA*707762 






7Z7761 


SBA«707761 






707741 


EXUA=707741 






7350B0 


CLX»735000 






7077i:Z 


EEM«707702 






707704 


LEM*707704 

.EJECT 











PA! 



,i i 


NXC15B MXC15B 




'. £ 2 !i '£ 


727762 6 


,LOC 


100 


2Zli£ 


EG]N EPA 




Z 2 Z 1 


143121 


DZM 


FLAGS 


32222 


143176 


DEM 


PJNX 


30203 
?2224 

20205 

20206 

30207 


100646 
043122 
1016S5 
102010 
777777 


JMS 
OAC 
JMS 
JMS 
LAW 
OAC 


WHERE 

INSFLU 

SLMTS" 

SETAC 

•1 

HITSUP 


20210 


£43170 


02211 
20212 


777700 
243247 


LAW 
OAC 


•100 
MAXERK 


22213 


777770 


LAW 


•10 
SI'XT* 

NOPRNT 


;z2i« 

3e215 


243117 
143120 


OAC 
OEM 


30216 
00217 


201620 r TNI , AC 
041572 hJc 


GETAO ; l 
LOCAT*4 


30220 


707762 


EPA 




20221 


101566 


JMS 


LOCAT 


20222 
^0223 

22224 

30225 


142616 
203150 
543147 
741000 


OEM 
LAC 
SAO 
SKP 


PHDR 

LAST1 

FIRST! 


30226 


600231 


JMP 


i*3 


20227 

t U 2 3 2 
30231 
30232 


543122 

600202 
202674 
343250 


SAO 
JMP 
LAC 
OAC 


JNSFLD 

BEGJNi2 

ERTBL 

ERWRD 


00233 


777740 


LAW 

OAC 
LAW 
OAC* 


•40 
CT16 


30234 
30235 


043144 
760000 


30236 


C63250 


ERWRQ 


30237 
30243 

20241 


443250 
443144 
600236 


ISE 
ISE 

JMP 


ERWRD 
CT16 
• •3 


22242 
3C243 

30244 

3*245 

J 32 4 6 


<i43123 
100646 
043122 
202674 
343250 


DAC 

JMS 
OAC 
LAC 
DAC 


LAST 

WHERE 

INSFLU 

EHT8L" 

C.RWRO 



/ENTER POP-15 MODE 
/CLEAR PROGRAM FLAGS 

/see where program is 
/save field no, 
/setup test limits 
/setup acs 

/mask for bit suppression 

/count for total errors 

/PASS COUNTGR 



/TELL WHERE PROGRAM IS 

/FIRST FIELD TO T£ST 
/LAST TO TEST 



/JNSFLO * FJELO WjTH PROGRAM 
/ERROR TABLE POINTER 

/LAW ■ NO ERROR IN TABLE 

/NO ERROR IN LAST 
/ERROR TABLE POINTER 



•EJECT 



PA&i 



4 


*XCi5a 


MXC158 










/RETURN 

/ 

STOVER 


TO STOVER AFTER ANY 


."82 4 7 


752224 


LAS 




22252 


523243 




AND 


K177 


22251 


343124 




OAC 


MCWA 


22252 


523211 




AND 


K40 


22253 


744220 




SZAiCLL 


22254 


622327 




JMP 


FCDMV 


,30255 


750224 




IAS 




30256 


503212 




AND 


K20 


22257 


742222 




SZA 




02262 


521234 




JMP 


KTBRD 


02261 


750224 




LAS 




22262 


523227 




AND 


K12 


32263 


740222 




SZA 




30264 


121412 




JMS 


SUPBJT 


C2265 


223124 




LAC 


MCWA 


22 2 6 6 


523240 




AND 


K74K 


20267 


741220 




SNA 




Z0272 


600317 


/ 


JMP 


DOALL 






/EXAMINE TEST 


SWITCHES 3 TO 


22271 


223124 


EXTST 


LAC 


MCWA 


72272 


5C3236 




AND 


K40K 


22273 


740220 




SZA 




22274 


620322 




JMP 


TST1 


22275 


203235 


EXAM2 


LAC 


K22K 


20276 


503124 




AND 


MCWA 


22277 


742220 




SEA 




20302 


600336 




JMP 


TST2 


22321 


223233 


EXAM3 


LAC 


«10K 


22322 


523124 




AND 


MCWA 


2232 3 


740220 




SHA 




22324 


620353 




JMP 


TST3 


22325 


443117 


EXHEt 


ISH 


SJXT4 


22326 


622312 




JMP 


■ *4 


2 2 3 2 7 


143122 




OHM 


NQPRNT 


"2312 


777770 




LAW 


-13 


22311 


2.43117 




DAC 


SIXT4 


20312 


750224 




LAS 




2 2 313 


523227 




AND 


K420 


22314 


7402*10 




SHA 




2 2 315 


620216 




JMP 


HTN1 


22316 


622125 




JMP 


CMQVE 



ACS CHANGES WHILE RUNNING 
/READ TEST PARAMETERS 



/BIT 12 A J. * FORCE RELOCATE 
/RELOCATE 



/BIT 13 A 1 » KEYBOARD INPUT 
/WAIT FOR INPUT 



/BIT 14 A 1 « BIT SUPPRESSION 

/PARAMETERS 
/MASK BITS 3 TO 6 
/ALL • DO ALL TESTS 



/SfcTUP TO RUN ACL TESTS 

/ 
."231/ 223124 DOALL uAC MCwA 
22322 ^43242 XQR V/4* 

2 2 321 2 43124 p 4 c *CWA 

/ 

.EJECT 



/BIT 3 A 1 ■ TEST 1 

/BIT 4 A 1 ■ TEST 2 

/BIT 5 A 1 i TEST 3 
/64 PASSES JF SKIP 

/CLEAR NO PRINT FLAG 
/RESTORE COUNT 

/BIT 9 a 1 ■ DON'T *!OVE 

/DONE All TESTS, SETUP 
/FOR RELOCATION 



/SET ALL TEST BITS 
/RESTORE 



p AS£ 5 "XCISB MXC15B 



?iS32Z 


2Z31i7 


TZ323 


.•43125 


20324 


6431*6 


J0325 


760261 


00326 


343136 


00327 


203226 


02332 


043202 


30331 


1432.53 


20332 


100357 


20333 


100366 


30334 


600275 


00335 


S03332 


00336 


223130 


30337 


243125 


30340 


243126 


30341 


760262 


00342 


£43136 


00343 


203212 


20344 


343202 


30345 


203211 


20346 


.■43203 


20347 


100357 


00350 


100366 


00351 


600301 


00352 


600347 


50353 


762263 


00354 


o43136 


20355 


120524 


~0356 


6003 t '5 



/TfcST 1. WRITE CHECKED PATTERN #1| SLOW MEMORY WORST CASE 



TST1 LAC PCWA 

OAC PCM 

OAC CNTRL 

(-AW 261 /ASCII 1 

DA S TNUM / T E ST NU MBER 



/TEST i PAT, CONTROL WORD 



/SLOW MEMORY WORST-CASE CONSTANTS 



LAC K7 

DAC XMSK 

02M XCOM 

JmI c«J?n ^ WR 1 TE ,N *tL FIELDS 

■ft! "EAO / N 0W GO R E AQ AND TEST 

J "l EX * M2 'SEE IF TEST 2 WANTED 



/ 



JMP ,-3 



/DO COMPLEMENT 



/TEST 2, WRITE CHECKER PATTERN #2| FAST MEMORY WORST-CASE 

TST2 fcJJ ^; 8 ^EST I PAT, CONTROL WORD 

OAC CNTRL 

l-* w 25? /ASCII 2 

°*C TNUM / T EST N UMB ER 

LAC K77 

OAC XMSK 

£J° J|J H /COMPLEMENT EVERY 40{ 8 >X-LINES 

JmI cIJah /W ? ITE IN "■«■ FIELDS 

J .*l " E *° /R r A0 AND TEST EACH HELD 

iZl { /SE£ ir T EST 3 WANTED 

JMP '" 3 /DO COMPLEMENT 

/TEST 3, TEST ALL XY COORDINATES 
/ 

TST3 LAW 263 / ASCII 4 

OAC TNUM /TEST NUMBER 

jjp till /W ^ ITE IN AU FIELDS 

JMP EXREL /PREPARE TO RELOCATE 

.EJECT 



PAGE. 



MXClbd 



MXC3.5B 



/ROUTINE TO SETUP ADDRESSES TOR WRITE LOOP 
/ 



22357 


202020 


NETWK 







22362 


102624 




JMS 


SETU1 


~* *? X f* + 

** ** sj J, 


120613 




JMS 


CBANK 


2Z362 


741^^0 




SKP 




22363 


622357 




JMP» 


NETWK 


20364 


120417 




JMS 


WHJTE 


32365 


620637 


/ 


JMP 


NXTSNK 






/ROUTINE TO 

j 


SETUP ADDH 


22366 


200000 


CREAD 







20367 


100424 




JMS 


HEAD 


22372 


777774 




LAW 


.4 


.72371 


243125 




XOR 


PCW 


22372 


543126 




SAD 


CNTRL 


^ i" 3 7 3 


620366 




JMP« 


CREAD 


20374 


343126 




OAC 


CNTRL 


"2375 


440366 




ISZ 


CREAD 


20375 


620366 




JMP* 


CHEAP 



22417 

2 t 4 2 J 

..' t « 2 1 
224<;2 



< ' L L* J & " 

130377 
250222 
1 ' ? 4 7 1 
6 2 2 417 



/SETUP 1ST FIELD TO T£ST 

/SEE IF IT HAS PROGRAM 

/NO 

/EXIT 

/ACTUALLY WRITE ONE FJELO 

/SETUP FOR NEXT FJELO 



/ACTUALLY READ AND TEST 1 FJELO 

/ACiCOMPLEMENT OF PCW 

/ALL DONE IF EQUAL 

/EXIT 

/CNTRL*COMPLEMENT PATTERN 

/RETURN*! 

/EXIT AND WRITE COMPLEMENT 



/PATTERN ROUTINE FOR TESTS 1 THRU 3 
/ 



20377 


22202? 


GENPAT 







22400 


203126 




LAC 


CNTRL 


20421 


343135 




DAC 


PATN 


20402 


777702 




LAW 


•100 


00423 


243146 




DAC 


CT04 


20404 


223135 




LAC 


PATN 


20403 


243132 




OAC 


PATR 


324Z6 


77776? 


*CNT 


LAW 


-20 


22427 


243144 




DAC 


CU6 


28412 


223132 




L*C 


PATR 


22411 


744012 




RCL 




2 2 412 


J43132 




DAC 


PATR 


20*13 


751402 




SHLiCLA 




2 2*14 


740021 


COMPL 


CMA 




."2415 


243193 




DAC 


GOOD! 


: i -4 1 & 


622377 




JMP* 


&ENPA1 



/current pattern control word 

/SAVE 

/COUNTS Y axis 
/control word 

/SAVE 

/COUNTS 16 SHIFTS 



/NO SKIP SAYS WRITE 777777 
/AC s 7777 
/SAVE 

/EXIT TO READ OR WRITE 
/ 

/WRITE ROUTINE FOR TESTS 1 THRU 3 

/ 

*RITE 

JMS GENPAT /GET A WORD 

DAC x /WRITE 

J M S CKXY /CHECK FOR PATTERN INVERSION 

JMP» WRITE /DONE 4 K 

.EJECT 



'AGE 



CXC158 



MXC15B 



/READ AND TEST 
/ 



ROUTINE FOR TESTS 1 THRU 3 



20424 


^000130 


2Z425 


100604 


20426 


100613 


00427 


741000 


£0430 


«204k;4 


22431 


100377 


20432 


210000 


20433 


740001 


20434 


P50SS00 


00435 


210000 


00436 


740001 


£0437 


050000 


00440 


210000 


F0441 


543153 


20442 


741000 


00443 


600466 


00444 


203204 


e0445 


043137 


00446 


203137 


£•0447 


250000 


00450 


050000 


00451 


203137 


00452 


250000 


20453 


C50000 


00454 


210000 


30455 


543153 


00456 


7410100 


00457 


600466 


00460 


203137 


00461 


744010 


^0462 


740400 


00463 


630445 


i- 1 3 4 6 4 


100471 


00465 


600637 


50466 


S43191 


00467 


100666 


C0473 


600464 



READ 



RCQM 



CKAl 
ERSET 





JMS 

JMS 

SKP 

JMP* 

JMS 

LAC 

CMA 

OAC 

LAC 

CMA 

OAC 

LAC 

SAD 

SKP 

JMP 

LAC 

OAC 

LAC 

XOR 
DAC 
LAC 
XQR 
OAC 
LAC 
SAO 
SKP 
JMP 
LAC 
POL 
.51*1 

JMP 
JMS 
JMP 
OAC 
JMS 
JMP 



SETU1 
CBANK 

READ 

GENPAT 
X 

X 

X 

X 
X 

50001 

ERSET 
<1 

BJTCON 

85TCON 

X 

X 

BJTCON 
X 

X 
X 
GQ0D1 

ERSET 
BJTCON 



«C0M»1 

CKXY 

NXTBNK 

BAD1 

ERROR 

CKAL 



/SETUP FOR FIRST FIELD 

/SEE IF IT HAS PROGRAM 

/NO 

/NO MORE CORE TO READ 

/GET A WORD 

/TEST fuLL-WORD COMPLEMENT 



/RECOMPLEMENT 

/REAO 

/IS WORD OK? 

/YES, GO ON TO BITWISE TEST, 

/NO, 

/USED FOR BIT INVERSION 

/COMPLEMENT A BIT 
/WRITE 

/RE-COMPLEMENT 

/RE-WRlTE 

/READ 

/COMPARE 

/OK 

/PRINT INFO 

/SETUP FOR NEXT BIT 
/DONE 18 IF LINK ■ 1 
/OO NEXT BIT POSITION 
/CHECK FOR PATTERN INVERSION 
/SETUP FOR NEXT FJELD 

/PRINT INFO 



iEJECT 



PAGt 



MXCiSO 



MXC15B 







/ 

/ROUTINE TO 
j 


CHECK FOH P 


^;^7i 


' 1 1"7 ",1 ? 


f 

CkXY 







2 2 4 7 2 


443143 




ISH 


CT4K 


.' ^ 4 7 i 


7410JZ 




SKP 




2 2! 4 7 4 


620471 




JMP* 


CKXY 


1*2475 


443146 




ISZ 


CT04 


Z0476 


741022 




SKP 




22477 


600526 




JMP 


Y64 


2 3 5 2 2 


7 24 2 2 2 




PXA 




32521 


343213 


M64 


TAD 


K100 


20502 


7213435" 




PAX 




2050 3 


443144 




!SZ 


CTi6 


32524 


62241? 




JMP 


WCNT** 


2 2 52 5 


602424 




JMP 


WCNT-2 


20536 


737221 


/ 

Y64 


AXR* 


1 


2Z527 


777722 




LAW 


•100 


8512 


243146 




OAC 


CT04 


20511 


724222 




PXA 




22512 


503222 




AND 


XMSK 


22513 


5432103 




SAD 


XCOM 


J0514 


60052? 




JMP 


.♦4 


2 5 1 5 


724020 




PXA 




22516 


343311 




tad 


(770000 


22517 


623521 




JMP 


N64 


22523 


223135 




LAC 


PATN 


22521 


74001.51 




CMA 




22522 


243135 




DAC 


PATN 


02523 


620515 




JMP 


i «6 



INVERSION 

/DONE 4K JF SKIP 

/EXjt TO WRITE OR READ 
/DONE WITH Y AXIS JF SKP 

/DONE 64 Y LIMES 

/INCREMENT Y ADORESS BY 1 

/CHECK FOR 16 LOCATIONS 
/NOT YET 
/RESTORE COUNT 

/INCREMENT X LINE BY 1 

/RESTORE Y LINE COUNTER 

/COMPLEMENT PATTERN IF EQUAL 



/START WITH NEW X-Y COMBO 
/PATTERN CONTROL WORD 

/COMPLEMENTED CONTROL WORO 



.EJECT 



PAG! 



i 9 


HXC15B 


MXC15B 










/TEST 
/ 

BURST 


3 WRITE 


AND READ R 


20524 


3 200 3 







00525 


100604 




JMS 


SETU1 


32526 


102613 




JMS 


CHANK 


£0527 


741000 




SKP 




00533 


600537 




JMP 


DOXY 


00531 


777777 


WONS 


LAW 


•1 


00532 


373201 




DAC* 


MEMADK,X 


00533 


443201 




ISZ 


MEMADK 


00534 


443143 




ISZ 


CT4K 


02535 


600531 




JMP 


WONS 


32536 


6SB637 




JMP 


NXTBNK 


02537 


100604 


DOXY 


JMS 


SETUi 


005421 


100613 




JMS 


CBANK 


005*1 


741000 




SKP 




00512 


620524 




JMP* 


BURST 


00543 


203201 




LAC 


MEMADR 


00544 


343213 




TAD 


K100 


00545 


043132 




DAC 


PATR 


30546 


203132 


BRSTA 


LAC 


PATR 


00547 


043143 




DAC 


CT«K 


20550 


776000 




LAW 


-2000 


00551 


043144 




DAC 


CT16 


00552 


173201 




02M* 


MEMAOK,X 


00553 


233201 




LAC* 


MEMADR.X 


00554 


443144 




ISZ 


CT16 


00555 


620553 




JMP 


• -2 


00556 


777777 


BUST 


LAW 


•1 


00557 


273143 




XOR* 


CT4K ( X 


00560 


741200 




SNA 




00561 


600567 




JMP 


CEND 


20562 


740001 




CMA 




20563 


043151 




DAC 


BAD1 


00564 


200556 




LAC 


BUST 


00565 


043153 




DAC 


G00D1 


30566 


103666 




JMS 


ERROR 


00567 


203213 


CEND 


LAC 


K100 


30570 


343143 




TAD 


CT4K 


00571 


043143 




DAC 


CT4K 


20572 


503231 




AND 


K7700 


205/3 


7402« 




SHA 




00574 


600556 




JMP 


BUST 


20575 


443201 




ISZ 


MEMADH 


00574 


4431J2 




ISZ 


PATR 


?0577 


203212 




LAC 


K77 


00600 


503201 




AND 


MEMAQK 


.'0601 


7402J2 




SZA 




CZ602 


6S0546 




JMP 


BRSTA 


00603 


600637 




JMP 


NXTBNK 



/SETUP FOR FIRST FIELD 

/SEE IF IT HAS PROORAM 

/NO 

/READ XY COORDINATES 

/WRITE l'S INTO ALL FIELDS 

/ADDRESS*1 

/DONE 4K WHEN SKIP 

/SETUP FOR NEXT FIELD 

/SETUP FOR FIRST FIELD 

/SEE IF IT HAS PROGRAM 

/NO 

/EXIT 

/ADDRESS OF FIELD X 

/ADD Y LINE 01 TO IT 

/SAVE 

/Y LINE ADDRESS 
/-1024 DECIMAL 

/clear line xn 

/read 000000 1024 times to 

/try to switch other lines 



/LINE Y * X MUST « 777777 

/SHOULD NOT SKIP 

/OK 

/save Bad data 

/save good data 

/print info 

/Y AXIS PtUS 1 

/MASK Y ADDRESS 

/ALL DONE JF SKJP 

/READ NEXT Y ON CURRENT x 

/INCREMENT X ADDRESS 

/INCREMENT X*Y ADDRESS 



/DONE 64 X LINES IF 

/TEST NEW X WITH Y01 TO Y63, 

/SETUP FOR NEXT FIELD 



.EJECT 



pa: 



KXClSb 



MXC15B 



22604 


020000 


= 3625 


233147 


i2606 


72j.0i<50 


22627 


343142 


2261? 


770000 


20611 


£43143 


2Z612 


620604 



23613 


020200 


2Z614 


120646 


22615 


722000 


<: e 6 1 6 


543140 


H2617 


620637 


22622 


740031 


22621 


343140 


2Z622 


721000 


02623 


730020 


2Z624 


043201 


22625 


620613 


22626 


440613 


2Z627 


620613 


22632 


20314Z 


22631 


343233 


20632 


043140 


22633 


721000 


22634 


770002 


Ze635 


043143 


2 2 6 3 6 


620614 



C2637 
22642 
226*1 
.26*2 

22643 
2- 2 6 4 « 
2 2 615 



2 2 6 4 
2 2 6 4 7 

22652 
*' "* 6 5 1 
.'2652 



750004 
741100 
122653 
223140 
543152 
620626 
6 2 2632 



i 22002 
222646 
523237 
243176 
620646 



/SETUP FOR FIRST 4K FIELD 

/ 

SETU1 








LAC 


FJRST1 


PAX 




DAC 


SVADR 


LAW 


• 100013 


DAC 


CT4K 


JMP» 


• SETUi 



/FIRST TO TEST 
/ADDRESS COUNTER 



/4K COUNTER 
/EXIT 



/ROUTINE TO SEE IF TESTED FIELD HAS PROGRAM 

/ 

CBANK 



NOMOR 





JMS 


WHERE 


/CURRENT PROGRAM FIELD 


PAL 






SAO 


SVADR 


/NEXT TO TEST 


JMP 


NXTBNK 


/SEE IF CURRENT IS LAST 


CHAUAC 






TAD 


SVADR 




PAX 






PLA 






DAC 


MEMADR 




JMP* 


CBANK 


/EXIT 


ISH 


CBANK 


/RETURN *1 


JMP« 


CBANK 




LAC 


SVADR 




TAD 


K1ZK 


/CURRENT *4K 


DAC 


SVAOR 


/NEW FIELD 


PAX 






LAW 


•10000 


/«4K 


DAC 


CT4K 


/4K COUNTER 


JMP 


CBANK*1 


/EXIT AND TEST NEW FIELD 



/ROUTINE TO CHECK FOR LAST FIELD 

/ 

NXTBNK 



LAS 




SPA 




JMS 


HALT 


LAC 


SVADR 


SAD 


LASU 


JMP 


NOMOS 


JMP 


N0M0R+2 



/CHECK ACS0 FOR HALT 

/GO HALT 

/ALL DONE IF EQUAL 



/CONTAINS EPC 



/ROUTINE TO DETERMINE WHERE PROGRAM IS 

/ 

wHERE 2 

AND K70K /CLEAR ALL BUT BITS 3,4,5 

XC-R PlNX 

jmP» where /EXIT 

/ 

.EJECT 



PAGE 11 



MXC15B 



*XC158 



20653 


$ e a e 


22654 


740040 


30655 


7500^4 


Z0656 


740010 


£0657 


741100 


ae66k? 


620653 


30661 


740020 


00662 


503.243 


32663 


543124 


20664 


620653 


20665 


600247 



20666 


030000 


20667 


724(3450 


20670 


503232 


00671 


243140 


00672 


343152 


00673 


203290 


00674 


542675 


30675 


7410B0 


00676 


600702 


30677 


202674 


00700 


043250 


00701 


600711 


00702 


203152 


30723 


503244 


207e4 


543123 


20705 


600711 


00706 


£■43123 


.50707 


063250 


00710 


443250 



/HALT ROUTINE, PRESS 

/TLSTJNGi OR IF ACS C 

/NfcW PARAMETERS, 

/ 

HA^T 

HIT 

LAS 

RAL 
SPA 

JMP« HALT 

RAR 

AND K177 

SAD MCWA 

JMP* HAI.T 

JMP STOVE* 

/ 

/ERROR PRINT-OUT ROUT 

/HALT AFTER PRlNT-OUT 

/ 



CONTINUE TO RESUME 
MANGES, TO EXECUTE 



/PRESS CONTINUE 



/RESUME WHERE LEFT OFF 
/EXECUTE NEW PARAMETERS 

l.NE, PLACE ACS0 UP FOR 

. PRESS CONTINUE TO GO ON, 



ERROR 



e 

PXA 

AND 
XOR 
DAC 
LAC 
SAO 
SKP 
JMP 
LAC 
DAC 

JMP 

LAC 

AND 

SAD 

JMP 

OAC 

DAC* 

I8Z 

.EJECT 



K7777 

SVADR 

OCAOR 
ERWRD 
ENERR 

.♦< 

6RTSL 

ERWRD 

SW2 

OCAOR 

KJ70K 

LAST 

.*4 

LAST 

ERWRD 

ERWRD 



/SAVE BAD DATA 



/SAVE FAILING ADDRESS 
/ERROR TABLE POINTER 
/LAST ADDRESS OF TABLE 



/FIRST ADDRESS OF TABLE 

/PUT POINTER TO TOP OF TABLE 

/CHECK AC2 FOR BELL 

/FAILING ADDRESS 

/MASK 3, 4 AND 5 

/NEW ERROR FIELD IF SKIP 

/SAME FIELD AS LAST ERROR 

/STORE FJELD# IN TABLE 
/INCREMENT POINTER 



?4Gt 12 


MXC15B 


MXC15B 






33711 


762303 


SW2 


LAW 




32712 


543120 




SAO 


NOPRNT 


znn 


620666 




JMP« 


ERROR" 


33714 


753004 




L*S 




30715 


742010 




RTL 




,32716 


740100 




SMA 




00717 


600723 




JMP 


SWJ 


30723 


760207 




LAW 


207 


22721 


1E2027 




JMS 


PCHAR 


33722 


603731 




JMP 


SW0 


?3723 


7530124 


SW1 


LAS 




30724 


740010 




RAL 




2Z725 


740103 




SMA 




3Z726 


600735 




JMP 


QOERR 


■inn 


1006S3 




JMS 


HALT 


ZZliZ 


600735 




JMP 


DQERR 


22731 


750004 


SW0 


LAS 




20732 


741100 




SPA 




22733 


1006&3 




JMS 


HALT 


33734 


620666 




. JMP« 


ERROR 



/PRINT INHIBIT IF * LAW 
/DON'T PRJNT 



/BELL IF SKJP 
/CHECK ACS 1 

/ASCII BELL 

/PRINT 

/CHECK ACS e FOR HALT 



/NO SKIP « PRINT INFO 

/PRINT 

/HALT 

/PRINT INFO 

/NO SKIP b HALT 

/RETURN TO READ ROUTINE 



.EJECT 
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MXC19B 



MXCX5B 



Z'£li-> 


203151 


CZ736 


741200 


ZZ111 


602752 


22743 


742021 


22741 


741220 


22742 


600752 


207*3 


740001 


22744 


503170 


22745 


740222 


22746 


740021 


ee747 


523170 


20752 


741200 


22751 


620666 


20752 


202616 


02753 


741200 


32754 


102616 


22755 


203136 


22756 


102027 


22757 


777767 


22762 


243142 


26761 


102121 


22762 


203152 


22763 


242072 


02764 


122107 


^2765 


777772 


20766 


043142 


22767 


102121 


20772 


203153 


20771 


042072 


22772 


102127 


22773 


777776 


20774 


043142 


32775 


122121 


22776 


223151 


02777 


042272 


£1222 


122127 


C1201 


760264 


01222 


543136 


21f23 


601012 



/SETUP TO P«IN1 


' ERROR 


DOERS LAC 


BAD1 


SNA 




JMP 


STER-6 


CMA 




SNA 




JMP 


STgR-6 


CMA 




AND 


8JTSUP 


SZA 




CMA 




AND 


8JTSUP 


SNA 




JMP« 


ERROR 


L*C 


PHDR 


SNA 




JMS 


PMDR 


LAC 


TNUM 


JMS 


PCHAR 


LAW 


"ii 


STER DAC 


CT32 


JMS 


SPJNG 


LAC 


OCADR 


OAC 


CRLF 


JMS 


PROCTL 


LAW 


• 6 


DAC 


CT32 


JMS 


SPING 


LAC 


G00D1 


DAC 


CRLF 


JMS 


PROCTL 


LAW 


-2 


DAC 


CT32 


JMS 


5PJNG 


LAC 


BAOl 


DAC 


CRLF 


JMS 


PROCTL 


LAW 


264 


SAD 


TNUM 


JMP 


INQY*4 



/BAD DATA 

/FULL WORD ERROR 

/FULL WORD ERROR 
/MASK SUPPRESSED BITS 



/NEW ERROR IF SKIP 
/ERROR IS SUPPRESSED 

/PRINT HEAOER IF 

/ASCII TEST NUMBER 

/PRINT TEST NO, 

/-» 

/USED For SPACING COUNT 

/SPACE 9 

/OCTAL ADDRESS 

/SAVE TEMPORARILY 

/PRINT FAILING ADDRESS 



/SPACE 7 

/WHAT DATA SHOULD BE 

/PRINT THE GOOD 



/SPACE 5 
/DATA REAO 
/SAVE 

/PRINT THE BAD 



.EJECT 



page 



^XC15B 



MXC15S 



•" I lib 
C it Z 7 

zuxz 

C 1 2 1 4 

:i*i7 



21Z21 
£1222 
il223 

il£24 

?1?23 

31026 
C1Z27 

2i?31 

?1032 
T1233 



777773 

"43142 

102101 

223126 

242072 
1021*57 
102072 

443247 
6207,11 

7777*30 
?43247 
760000 
£43120 

202676 
.?431&4 

lt2Z34 
102072 
777766 
«543142 
760212 
102027 
443142 
601027 
6207,51 



INUY 



LAW 


•5 


DAC 


CT32 


JMS 


SPJNG 


LAC 


CNTRL 


DAC 


CRLF 


JMS 


PRQCTL 


JMS 


CRLf 


ISZ 


MAXERR 


JMP 


SW0 


LAW 


•100 


DAC 


MAXERH 


LAW 




DAC 


NQPRNT 


LAC 


PTO 


DAC 


PRNT 


jmS 


PNXT 


JMS 


CRLF 


LAW 


■12 


DAC 


CT32 


LAW 


212 


JMS 


PCHAR 


ISZ 


C?32 


JMP 


i«3 


JMP 


SW0 



/SPACE 5 

/CURRENT CONTROL WORD 

/SAVE 

/PRINT PATTERN CONTROL WORD 

/CR» IF 

/CHECK FOR MAX, PRINT-OUTS 

/CHECK ACS 

/-64 DECIMAL, 



/NO MORE ERROR PRINT-OUTS 
/UNTIL, RESTART FROM 100 



/PRJNT-OUTS INHIBITED 

/CRiLF 

/-10 DECIMAL 



/LP 

/IB LINE FEEDS 



.EJECT 



'AGE 



MXC15H MXC158 



"12 3 4 



7352) '£$ 



ZU15 


202653 


21236 


G43154 


31Z37 


102072 


2\H2 


102034 


£1241 


101544 


21C42 


543226 


21243 


6C1034 


3ie44 


543216 


aiz«5 


101067 


21046 


777517 


?ie«7 


343142 


2105.3 


740100 


01KS1 


601054 


21P52 


102607 


31053 


601035 


31054 


203142 


31055 


740001 


31056 


3«3204 


31357 


343221 


21062 


740100 


£1261 


601064 


em2 


102607 


21063 


601035 


21064 


760000 


31265 


243142 


il066 


043136 



/KEYBOARD INPUT ROUTINES 

/ 

KYHRD Cl* 

/ 

/TYPE TEST* AND wAJT FOR JNPUT, CARRIAGE 

/RETURN ONLV MEANS USE LAST PATTERN WRITTEN 



TSTNO 



TSTN 



LAC 
OAC 

JMS 
JMS 
JMS 

SAO 
JMP 
SAD 
JMS 
LAW 
TAD 
SMA 
JMP 
JMS 
JMP 
LAC 

CMA 

TAD 
TAO 
SMA 
JMP 
JMS 
JMP 
LAW 
XOR 
DAC 

.EJECT 



TSNX 

PRNT 

CRLT 

PNXT 

KEYJN 

KJ77 

KYBRD 

K215 

ADR1 

-2*1 

CT32 

i*3 

*0TJS 
TSTNO 
CT32 

Kl 
K263 

.+3 

WQTIS 
TSTNO 

CT32 

TNUM 



/POINTER FOR TEST# 

/CR, \J 

/PRINT TEST* 

/WAIT FOR INPUT 

/START OVER IF A RUB-OUT 

/CHECK FOR CiRi 

/USE LAST PATTERN WRITTEN 

/-I ASCII 

/MINUS « INPUT <1 

/PRINT QUERY ANO RESTART 

/TEST* JN ASCII 

/SUBTRACT ASCII 3 
/MINUS ■ TEST* >3 

/PRINT QUERY AND RESTART 
/NEW TEST NUMBER 



: AC,£ 



MXC15B 



MXC15B 



01267 

A 1 fl 7 
21271 
21?>7 2 
21E73 
.51274 
21P75 
ii 107 6 
21277 
21100 
21101 
21102 

0ii?3 

211(34 
01105 
31106 
Z1107 

21110 
21111 

21112 

21113 

.1114 
31115 

mi6 

£1117 
211ZP 
21121 
31122 
21123 
2-1124 

21125 
21126 
21127 

2 1 1 i .1 
21131 
21132 
21133 
.1134 
■-'1133 
21136 
21137 
2114J 
21111 
2 114 2 



202700 
042677 
222677 

(l-43162 
7600^0 
043160 
143135 
102072 
202654 
343154 
102034 
202655 
?43157 
202656 
343156 
101544 
101553 
203142 
503206 
4 314 2 
101621 
601106 
203155 
043160 
202700 
542677 
601124 

i.42677 

601564 

101373 

601143 
102072 
202664 
.■'43154 
132034 
202666 
143134 
122034 
760020 
.-'41572 
121566 
2F1620 
.41572 
621067 



/XCH15 


- TAPE 2 




/ 

/WAIT 

/ 

ADHl 


FQR FJRST 


6 DIGIT 


LAC 


RQTB 




DAC 


hoTa 




LAC* 


ROTA 




DAC 


NROTA 




LAM 






DAC 


AQRA 




DEM 


AQRO 




JMS 


CR.LF 




LAC 


AURX 




DAC 


PRNT 




JMS 


PNXT 




LAC 


AQ1R 




OAC 


OVER 




LAC 


D0N1 




DAC 


EXJT 


FAQR 


JMS 


KEYiN 




JMS 


LEGAL 




LAC 


CT32 




AND 


K7 




DAC 


CT32 




JMS 


GETAQ 




JMP 


FADR 




LAC 


AORCW 




DAC 


ADRA 


DFST 


LAC 


RQTB 




SAD 


ROTA 




JMP 


,*3 




DAC 


ROTA 




JMP 


QUERY 




JMS 


PROG 




JMP 


AQR2 




JMS 


CRLF 




LAC 


A0R1P 




DAC 


PRNT 




JMS 


PNXT 




LAC 


OVRLP 




DAC 


PRNT 




JmS 


PNXT 




LAW 






DAC 


L0CAT*4 




jms 


LOCAT 




LAC 


GETAD-1 




DAC 


L0CAT*4 




JMP 


AORl 



to loop on 
/pointer for law-xx 

/left Shift counter 



/SAVES PARTIAL ADDRESS 
/CR. LF 

/POINTER FOR FIRST ADR, 

/PRINT FIRST ADR. 
/CUD1R) ■ ADR1 

/SIDONl) « DFST 

/WAJT FQR INPUT 
/SEE IF VALID 
/ASCII INPUT 



/SHIFT LEFT TO FROM ADDRESS 
/GET NEXT DIGIT 



/POINTER FOR LAW TABLE 
/NOT EQUAL * <6 CHARACTERS 
/0|K, 

/PRINT QUERY AND RESTART 
/NOW SEE IF 1ST ADR, IS 
/IN SAME 4K AS PROGRAM 
/OK 
/CR. LF 



/PRINT "FIRST" 



/PRINT "ADR, IS WJTHIN PROGRAM" 



/TELL WHERE PROGRAM IS 



/START OVER 



.EJECT 
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KXC15S 



mxc;5b 



21143 


763033 


31144 


.'43161 


3H45 


143155 


01146 


222677 


01147 


243162 


21150 


102072 


2*1151 


202657 


31152 


043154 


31153 


102034 


2115* 


202660 


01155 


043157 


01156 


202661 


31157 


343156 


31163 


101544 


21161 


101553 


31162 


233142 


21163 


503206 


01164 


043142 


01165 


101621 


41166 


601160 


01167 


203155 


31170 


343161 


31171 


202700 


31172 


542677 


31173 


601176 


31174 


342677 


21175 


601564 


31176 


101373 


31177 


631215 


31200 


102072 


31201 


202665 


31202 


^343154 


31203 


1«J23J4 


31204 


202666 


31205 


3431U4 


^1236 


102334 


C12Z7 


76021)0 


£1210 


^141572 


:i2ii 


131566 


31212 


2316^0 


.'1213 


: j41572 


31214 


631143 



/wait for last 


6 DIGIT 


A0R2 LAW 




DAC 


AQR8 


D2M 


AQRCW 


LAC* 


ROTA 


DAC 


NROTA 


JMS 


CRLF 


LAC 


ADXR 


DAC 


PRNT 


JMS 


PNXT 


LAC 


A02R 


OAC 


OVER 


LAC 


D0N2 


OAC 


EXIT 


.AOR JMS 


KEVIN 


JMS 


LEGAL 


LAC 


CT32 


AND 


K7 


OAC 


CT32 


JMS 


CETAO 


JMP 


LAOR 


LAC 


AQRCM 


DAC 


AQRB 


>LST UAC 


R0TB 


SAO 


ROTA 


JMP 


i*3 


DAC 


ROTA 


JMP 


QUERY 


JMS 


PROG 


JMP 


STLP 


JMS 


CRLF 


LAC 


ADR2P 


DAC 


PRNT 


JMS 


PNXT 


LAC 


OVRLP 


DAC 


PRNT 


JMS 


PNXT 


LAW 




OAC 


LOCAT+4 


JMS 


LOCAT 


LAC 


GtTAO-1 


DAC 


L0CAT*4 


JMP 


A0R2 



ADDRESS or BLOCK 



/FIRST COUNT FOR LEFT SHIFT 

/CR. LF 

/POINTER FOR LAST AOR, 

/PRINT- LAST AOR, 
/CUD2R) « ADR2 

/c(oons) * dlst 
/wait for input 

/SEE JF VALID 
/ASCII INPUT 



/SHIFT LEFT TO FORM ADDRESS 
/GET NEXT DIGIT 



/NOT EQUAL i <6 CHARACTERS 
/OiK, 

/PRINT QUERY AND RESTART 
/SEE JF LAST ADDRESS IS IN 
/SAME 4k AS PROGRAM 
/O.K. 

/C«» LF 



/PRINT "LAST" 

/PRINT "ADR,. IS WITHIN PROGRAM" 

/tell where program is 
/start over 



•EJECT 



3 AG£ 16 



MXClSti 



MXC15B 







/SLTUP ADDRESSES AND 


21215 


760020 


/ 

STL.P 1.AW 




21216 


543162 


SAO 


AQRA 


ei2i7 


7410kii3 


SKP 




21222 


621227 


JMP 


CKLST 


"1221 


543161 


SAO 


ADRB 


21222 


600216 


JMP 


RTN1 


21223 


203161 


LAC 


AQP.B 


21224 


<;43162 


OAC 


AORA 


21225 


243163 


DAC 


LTST 


21226 


601271 


JMP 
f 

CKUST SAO 


SIMU 


21227 


543161 


AORB 


21232 


741000 


SKP 




21231 


631235 


JMP 


CBOTH 


21232 


203163 


LAC 


ADRA 


21233 


-43161 


DAC 


AORB 


21234 


243163 


DAC 


LTST 


21235 


621271 


JMP 
/ 

CBQTH LAC 


SJMU 


21236 


203160 


ADRA 


31237 


503237 


AND 


K70K 


21243 


243142 


OAC 


CT32 


21211 


233161 


LAC 


AORB 


21242 


5123237 


AND 


K70K 


31243 


543142 


SAO 


CT32 


21244 


601247 


JMP 


.*3 


31245 


lB26kJ7 


JMS 


WOTJS 


21246 


6011367 


JMP 
/ 

LAC 


A0R1 


21247 


2C316P 


AQRA 


21252 


745-L'Jl 


CMA 




21251 


343224 


TAD 


Kl 


21252 


343161 


TAD 


AORB 


21253 


74S12'I2 


SMA 




21254 


621265 


JMP 


SJMU-' 


21255 


223161 


LAC 


AORB 


21256 


242072 


DAC 


CRLP 


21257 


223162 


LAC 


ADRA 


21262 


.43161 


DAC 


AQRB 


2 12 61 


.43163 


DAC 


LTST 


21262 


222372 


LAC 


CRLF 


21263 


243162 


OAC 


ADRA 


21264 


621271 


JMP 


i«5 


2 12 6 5 


2 2 3161 


LAC 


AJRB 


21266 


2-43163 


DAC 


LTST 


21267 


2 2 316 2 


LAC 


AURA 


212/2 


7 2 1 j «: -f. 


PAX 





BEFORE LOOPING. 



/A LAW ■ NO 1ST ADDRESS 



/A LAW « NO LAST ADDRESS 
/RESTART PROGRAM 

/ONLY ONE SELECTED 
/LAST OF BLOCK 



/A LAW • NO LAST ADDRESS 

/ONLY 1 ADDRESS WANTED 
/LAST OF BLOCK 



/first adr, 

/mask bits 3.4 and 5 

/SAVE 

/L*ST ADR, 

/MASK 3,4 AND 5 

/BOTM MUST ■ SAME 4K 

/OK 

/PRINT QUERY 

/START OVER 

/FIRST ADDRESS 

/2'S COMPLEMENT 
/SUBTRACT LAST ADDRESS 
/FIRST IS > LAS-T jF NEG, 
/LEAVE AS IS 



/FIRST IS NOW LAST 



/LAST IS NOW FIRST 



.EJECT 
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MXC15B 



MXC;5B 



21271 


760261 


-H272 


5431.56 


21273 


601322 


31274 


760262 


21275 


5431.J6 


31276 


601323 


21277 


760263 


21300 


543136 


21301 


601352 


21302 


203206 


Z1303 


tJ432i^2 


121304 


143203 


31305 


203127 


01306 


043126 


21307 


122072 


Z131D 


203160 


£1311 


503237 


21312 


043200 


21.313 


730000 


21314 


740031 


01315 


343200 


01316 


721000 


21317 


770000 


21320 


043143 


31321 


100417 


31322 


60134J 


01323 


203212 


21324 


043202 


£1325 


203211 


21326 


0432U3 


21327 


203130 


21332 


601306 


?1331 


707702 


21332 


210000 


21333 


7400UJ 


?1334 


25001)0 


21335 


203200 


21336 


543163 


21337 


601343 


?1340 


737001 


21341 


443200 


21342 


601331 


?1343 


203163 


21344 


L'43220 


21345 


732020 


21346 


740031 


21347 


343222 


21352 


721002 


21351 


621331 



SIMU 


LAW 


261 




SAD 


TNUM 




JMP 


SIM1 




LAW 


262 




SAO 


TNUM 




JMP 


SIM2 




LAW 


263 




SAO 


TRUM 


/ 

sim 


JMP 


SIM3 


LAC 


K7 




DAC 


XMSK 




DZH 


XCOM 




LAC 


PCWA 


SIMC 


OAC 


CNTRL 




JMS 


CHLf 




LAC 


AORA 




AND 


K70K 




OAC 


WORK 




PLA 






CMA'IAC 






TAD 


WORK 




PAX 






LAW 


-10000 




DAC 


CT4K " 




JMS 


WHJTE 


/ 

SIM2 


JMP 


STSCP 


LAC 


K77 




OAC 


XMSK 




LAC 


K40 




OAC 


XCOM 




LAC 


PCWB 


/ 

SCPl 


JMP 


SIMC 


EEM 






LAC 


X 




CMA 






OAC 


X 




LAC 


WORK 




SAO 


LTST 




JMP 


,*« 




AXR*1 






IS* 


WORK 




JMP 


SCPl 


STSCP 


LAC 


AORA 




OAC 


WORK 




PLA 






CMA! I AC 






TAD 


WORK 




PAX 






JMP 


SCPl 



/TEST 1 IT EQUAL 
/TEST 2 IF EQUAL 
/TEST 3 IF EQUAL 



/WRITE PATTERN 
/WRITE PATTERN #2 



/STNC 
/READ 

/COMPLEMENT 
/WRITE 

•CHECK FOR END OF BLOCK 

/ADDRESS*! 

/STARTING ADDRESS 



.EJECT 



'AGE. 22 



MXC15d 



MXC15B 



01352 

31353 
01354 
01355 
01356 
01357 
01360 
01361 
01362 
?1363 
21364 
2136S 
01366 
01367 
21373 
01371 
01372 



21373 
^1374 
01375 
£1376 
01377 

s 1 4 a £ 

01421 
^14£2 
01403 
1 4 '£ 4 
?14ZS 
: 1 4 £ 6 
? 1 4 ? 7 



102272 
203160 
503237 

043200 
73B000 
740031 
3432150 
721000 
77004)0 
J43143 
777777 
050000 
443143 
601364 
163160 
223160 
601371 



000000 

100646 

042072- 

760000 

543155 

621373 

203155 

503237 

542072 

74100E 

621373 

441373 

621373 



/ROUTINE TO SIMULATE TEST 3, ALL ONES 
/ARE WRITTEN INTO ONE 4K FIELD, AND 
/THEN THE ADDRESS IS LOOPED, THE 
/X LINE SPECIFIED IN THE FIRST AODR 
/IS SET TO 000000, AND THEN READi 
/THE LAST ADDRi ANO ALL BETWEEN, ARE 
/NOT REFERENCED, 
/ 
SIM3 



PROG 



JMS 


CRLF 








LAC 


AQRA 








AND 


K70K 


/MASK FIELD NUMBER 




DAC 


WORK 








PLA 










CMAIIAC 








TAD 


WORK 








PAX 










LAW 


-10000 








DAC 


Cf«K 


/4K COUNTER 




LAW 


•i 








DAC 


X 


/WRITE 1'S 






ISZ 


CT4K 


/DONE «K WHEN SKIP 




JHP 


i-3 








OEM* 


AQRA 


/CLEAR X*Y 


LINE 




LAC* 


AORA 


/HANG HERE 


AND READ 




JMP 


.-1 








ANTED 


ADDRESS AND 


PROGRAM AREA 







JMS 


WHERE 








DAC 


CRLF 


/SAVE 






LAW 










SAD 


ADRCW 


/NONE IF 8 


LAW 




JMP* 


PROG 








LAC 


ADRCW 








AND 


K70K 








SAD 


CRLF 


/e<CRLF) ■ 


CURRENT' 4K 


BANK 


SKP 




/EQUAL 






JMP* 


PROG 


/EXIT 






ISZ 


PROG 


/RETURN+1 






JMP« 


PROG 


/EXIT 







.EJECT 



p AGt 21 l")kC15d MXC15B 



/ 

/BIT SUPPRESSION INPUT ROUTINE, TyPE A 
/CARRIAGE RETURN TO RESUME TESTING ALL BITS 
/TO SUPPRESS, TYPE Tht DECIMAL BIT POSlTION(S) 
/SEPARATING EACH WJTh A COMMA, TERMINATE WITH 
/A C,R, PRESS RUBQUT TQ RESTART THE LINE IN 
/CASE OF TYPING ERROR, 



31*12 


£000iSG 


/ 

SUPBIT 




■aini 


143167 


DZM 


sew 


01412 


202662 


LAC 


SUPX 


81413 


243154 


OAC 


PRNT 


31414 


202663 


LAC 


SUPXA 


31413 


043157 


DAC 


OVER 


01416 


102072 


JMS 


CHLF 


01417 


122034 


JMS 


PNXT 


2*142? 


101544 


/ 

AGAIN JMS 


KEYIN 


01421 


543216 


SAD 


K215 


01422 


601467 


JMP 


EOT 


01423 


543226 


SAD 


K377 


£1424 


601411 


JMP 


SUPBIT*1 


01425 


543217 


SAD 


K254 " 


01426 


681420 


JMP 


AGAIN 


01427 


101517 


JMS 


NUMB 


01430 


601564 


JMP 


QUERY 


01431 


741200 


/ 

SNA 




01432 


601513 


JMP 


«£RO 


01433 


043164 


DAC 


TTYW 


21434 


101544 


JMS 


KEYJN 


01435 


543217 


SAD 


K2S4 


21436 


601475 


JMP 


EOM 


01437 


543216 


SAD 


K215 


21440 


601501 


JMP 


EOTA 


01441 


543226 


SAD 


K377 


01442 


601411 


JMP 


SgPBJT*l 


01443 


101517 


JMS 


NUMB 


01444 


601564 


JMP 


QUERY 



/SUPPRESSION CONTROL WORD 
/POINTER FOR SUPPRESSS 

/C(SUPXA> * SUPBIT*1 

/C«» LF 

/PRINT "SUPPRESS" 

/WAIT FOINPUT 
/■CHECK FOR Ci«i 
/DONE SELECTING 
/CHECK FOR RUB-OUT 

/CHECK FOR COMMA 
/WAIT FOR NEXT BIT POS, 
/DETERMINE INPUT NUMBER 
/NOT VALID RESTART 

/CHECK FOR 
/POSITION 
/SAVE DIGIT 

/WAIT FOR SECOND DIGIT 
/CHECK FOR COMMA 
n DIGIT POSITION 
/CHECK FOR C,R. 
/DONE 

/RUB-OUT IF NO SKIP 
/START OVER 
/DETERMINE NUMBER 
/NOT VALID, RESTART 



.EJECT 



p AC-t 



r-xCxib 



VXC156 



I 4 4 3 

0144 7 
01450 
21«S1 
1 * 5 2 
214&3 
i314!>4 
21<S>5 

Z14&2 

71461 
31462 
01463 

31464 

ei465 

01*66 
21*67 

01470 

01471 
01472 

01473 
01474 

01475 
71476 
21477 

rises 

21521 
015^2 

01^03 

015.T4 

1 ? if 3 

01507 

.151 

01511 

-■1512 
"1513 

ri5i4 
;-l5i3 

'1516 



^4316^ 
203164 
7 4 4 1 \1 
744212 
744012 
243165 
7400«.l 
043166 
777777 
343166 
^43166 
223242 
744022 
443166 
6E1461 
243167 
H43167 
62142? 

203167 

7 4 0001 
4 317? 
143167 
122272 
62141? 

203164 

740Ek:1 
34320)4 
601457 

203164 

7430U1 
343*^4 

043166 
203242 
7 4 4 '£ c 

443166 
6 £ 1 5 i 6 
2431S7 
6 : 1 4 / 

2 316 7 
?432«2 

4 316 7 

6 r 1 4 c 





DAC 


TTYX 




LAC 


TTYW 




RCLI 


RCi.1 " RCU 




XOR 


TTYX 




CMA 






DAC 


TTYV 




LAW 


-i 




TAD 


TTYY 


ROTOR 


DAC 


TTYY 




LAC 


K*00K 




RCR 






ISH 


TTYY 




JMP 


1*2 




XOR 


sew 




DAC 


sew 




JMP 


AGAIN 


/ 






EOT 


LAC 
CMA 


sew 




OAC 


BJTSUP 




DHM 


sew 




JMS 


CRLf 




JMP« 


SJPBIT 


/ 






EOM 


LAC 

CMA 


TTYW 




TAD 


HI 




JMP 


ROTOR 


/ 






£OTA 


LAC 

CMA 


TTYW 




TAD 


Kl 




DAC 


TTYY 




LAC 


K400K 




RCR 






ISH 


TTYY 




JMP 


.-2 




XOR 


sew 


liEHO 


JMP 


EOT*l 


LAC 


sew 




XOR 


<400K 




DAC 


sew 




JMP 


agajn 



/SAVE NUMBER 
/PREVIOUS DIGIT 



/COMBINE DIGITS 
/!' COMPLEMENT 
/SAVE 

/SUBTRACT 1 

/400B00 

/SHIFT COUNT 

/INSERT JN CONTROL WORD 

/WAIT FOR NEXT BIT POSITION 

/SELECTION COMP1.ETEO 

/CRiLF 
/EXIT 

/SINGLE DIGIT 

/INPUT DIGIT 
/2'S COMPLEMENT 
/400002I 
/SHIFT COUNTER 

/EXIT 

Z4055000 

/wait for next 



.EJECT 



PAGE 23 


KXC153 


M> 


21517 


l?006JKiB 


^ 


01523 


203142 




21521 


523225 




5H522 


543223 




3152.3 


741000 




21524 


621531 




21525 


4*1517 




21526 


2.2314Z 




01527 


523206 




2153C 


621517 




31531 


543222 




01532 


741000 




31533 


621517 




01534 


20314? 




01533 


503204 




21536 


740200 




Z1537 


601542 




01540 


777770 




01541 


601457 




01542 


777767 




Z1543 


601457 


/ 



MXC15B 



21544 


000000 


01545 


700312 


31546 


700301 


01547 


601546 


01550 


700312 


01551 


343142 


01552 


621544 



01553 

11554 

^1555 
21556 
J1557 

."■'1562 
31561 
31562 
21563 
J1564 
71565 



000000 

203142 
543226 

601034 
543216 
623156 
503225 
543223 
621553 
102607 
623157 



/ 




NUMB 




LAC 


CT32 


AND 


K370 


SAD 


<260 


SKP 




JMP 


i*5 


ISZ 


NUMB 


LAC 


CT32 


AND 


K7 


JMP* 


NUMB 


SAD 


K270 


SKP 




JMPt 


NUMB 


LAC 


CT32 


ANO 


Ki 


SZA 




JMP 


• ♦3 


LAW 


>10 


JMP 


ROTOR 


LAW 


"11 


JMP 


ROTOR 



/CHARACTER INPUT ROUTINE 
/ 



KEYIN 





KRB 

KSF 

JMP 

KRB 

OAC 

JMP* 



CT32 

KEVJN 



/ASCII INPUT 



/CHECK FOR 
/RETURN*! 



A 270 OR 271 



/EXIT 

/■ 8 OR 9 If EQUAL 

/INVALID 

/ASCII INPUT 

/» A 6 IF BJT 17 ■ 

/A 9 

/SHIFT COUNT OF 6 

/SHIFT COUNT OF 9 



/INITIALIZE 

/wait for input 
/read buffer 

/S*VE 



/ 
/ 

/CHECK VALIDITY OF INPUT CHARACTER 



LEGAL 



QUERY 





LAC 

SAO 

JMP 

SAD 

JMP* 

AND 

SAO 

JMP* 

JMS 

JMP* 

.EJECT 



CT32 
K377 

KYBRD 
K215 
EXJT 
K370 

K260 
LEGAL 
WQTJS 
OVER 



/ASCII INPUT 
/IS IT A RUBOUT 
/START OVER 
/CHECK FOR C,R, 
/LINE TERMINATED 

/SHOULD EQUAL 260 
/O.K, 

/PRINT QUESTION MARK 
/START LINE OVER 



PAGE. 



24 


MXC15B 


MXC15B 










/PHIMT 

/ 
LOCAT 


A»EA ( 


rONTAiNIM 


01566 


( ,33a„0 







L"1567 


7500.J4 




LAS 




31570 


5&3213 




AND 


K100 


31571 


7402<!0 




SZA 




n572 


621566 




JMP» 


LOCAT 


21573 


lkD2fc)72 




JMS 


CRLf 


31574 


202667 




LAC 


PJSIN 


£1575 


1343154 




DAC 


PHNT 


21576 


1Z2034 




JMS 


PNXT 


1-1577 


100646 




JMS 


WHERE 


K1600 


U432B0 




DAC 


WORK 


3 1 6 1 


744010 




RCL1 


RTLI 


21602 


742010 








21603 


740010 








316S54 


5032156 




AMD 


K7 


131685 


343220 




TAD 


K260 


?16t56 


122027 




JMS 


PCHAR 


t:-i6e7 


203200 




LAC 


WORK 


3161?! 


744010 




aCLi 


«TLl 


31611 


742010 








21612 


742010 








31613 


742010 








31614 


5E32*6 




AND 


K7 


31615 


343220 




TAD 


K260 


-1616 


102027 




JMS 


PCHAR 


01617 


132072 




JMS 


C«LF 


31622 


621566 




JMP» 


LOCAT 



RAL 



RTLI 



/CRi Lf 



/PRINT "PROGRAM IS IN FIELO" 
/WWERE IS IT 



/PRINT 1ST HALF FJELD NO. 
RTL 



/PRINT 2ND 
/CRi IF 
/EXIT 



HALF FJELD NO, 



.EJECT 



PAGE 25 MXC15B MXC15B 



/GENERATE 6 DIGJT ADDHESSES FROM KEYBOARD INPUT 



-'1621 


ZZZZVZ G 


iETAD 




01622 


7Z77i?4 


IEM 




^1623 


222677 


LAC* 


ROTA 


31624 


1343162 


OAC 


NROTA 


01625 


203142 


LAC 


CT32 


01626 


443162 CNROT ISZ 


NROTA 


01627 


601645 


JMP 


GOLEFT 


01630 


243155 


XOR 


AQRCW 


01631 


043155 


DAC 


AORCW 


21632 


777777 


LAM 


-1 


01633 


562677 


SAO* 


ROTA 


21634 


601637 


JMP 


.*3 


21635 


442677 


151 


ROTA 


01636 


621621 


JMP» 


GtTAD 


01637 


2027100 


LAC 


ROTB 


2H640 


042677 


OAC 


ROTA 


31641 


222677 


LAC* 


ROTA 


01642 


043162 


DAC 


NROTA 


01643 


441621 


ISZ 


GETAD 


01644 


621621 


JMP* 


GfTAO 


01645 


744010 g 


OLEfT RCL 




01646 


601626 
777760 R 


JMP 


CNROT 


01647 


OTC LAW 


•20 


01650 


777763 


LAW 


-15 


01651 


777766 


LAW 


"13 


01652 


777771 


LAW 


-7 


01653 


777774 


LAW 


-4 


01654 


777777 


LAW 


-1 



/GET A NEG, LAW TOR COUNT 
/SHIFT COUNTER 
/ASCII INPUT 

/ROTATE 1 LEFT 
/ADR, CONTROL WORD 



/REC»D 6 DIBITS IF EQUAL 

/L*W POINTER * \ 

/EXIT AND WAIT FOR NEXT 

/ESTORE POINTERS 



/RETURN*1 
/EXIT 



/ROTATE 15 LEFT FOR 1ST DIGIT 

M LEFT FOR 2N0 

/9 LEFT FOR 3RD 

/6 LEFT FOR 4TH 

/3 LEFT FOR 5TH 

/NONE FOR «TH 



,EJECT 



PAGE 26 



yxcisa 



MXC158 



21656 
21657 
21662 
21661 
31662 
-1663 
01664 
21665 
01666 
£1667 
01672 
21671 
01672 
21673 
?1674 
01675 
31676 
21677 
01700 
01701 
21722 
01703 
.- 1 7 i! 4 
01705 
21706 
21707 
21710 
21711 
21712 
cl7l3 
21714 
21715 
21716 
21717 
21722' 
21721 
217 2 2 
21723 
.1724 
21725 
.■172*. 
.1727 
2173-' 
21731 
21732 
2 1 7 3 J 
. 17J4 
217 3 3 
21736 
217 3 7 
2 1 7 4 



020002 
221622 
041572 
122072 
202670 
043154 
1026)34 
102072 
202671 
,543157 
202672 
343156 
121544 
543226 
601656 
101553 
203142 
503206 
744220 
742020 
740020 
043147 
101544 
543226 
601656 
101553 
203142 
503206 
74402C 

7420*2' 
742020 
742020 
243147 
243147 
101544 
543217 
741000 
601564 
121544 
■;43226 
601655 
101553 
203142 
523226 
744220 
7 4 2 i ? 
7 4 2 
.'43150 
101544 
■S43226 
6 1 6 'J 6 
101553 



/ 

/ROUTINE TO ACCEPT TEST LIMITS FROM KEYBOARO INPUT 
/ 

SLMTS 



LAC 
DAC 

JMS 
LAC 
DAC 
JMS 

JMS 

lac 

DAC 
LAC 
DAC 
JMS 
SAD 
JMP 
JMS 

LAC 
AND 
RCRI 



DAC 
JMS 
SAO 
JMP 
JMS 
LAC 
AND 
RCRI 



XOR 
DAC 
JMS 
SAD 
SKP 
JMP 
JMS 
SAD 
JMP 
JMS 
LAC 
AND 
RCRI 



DAC 
JMS 
SAD 

JWP 

JMS 



GETAD-1 
L0CAT*4 

CRLF 

TLMX 

PRNT 

PNXT 

CRLF 

SLMX 

OVER 

D0N3 

EXJT 

KEYJN 

KJ77 

5|.MTS*1 

LEGAL 

CT32 

K7 

HTRI 



FJRgTl 

<EYIN 

K377 

SLMTS*1 

LEGAL 

CT32 

K7 

RTR) 



FJRST1 
f IRST1 
KEVIN 
<254 

QUERY 

KEYJN 

K377 

SLMTS*1 

LEGAL 

CT32 

<7 

RTRj 



lASTI 
KEYJN 
K377 

SLMTS*1 
LEGAL 



RAR 



RTR) 



RAR 



/RESTORE JMP» 

/cRi \.v 

/TEST LIMITS POINTER 

/PRINT "TEST LIMITS" 

/CR»LF 

/C <SLMX)«SLMTS*1 

/RETURN ADO'RESSpCREVR 

/wait for input of mem, no. 



/SE IF VALID 
/ASCII INPUT 
/MASK 15,16 AND 17 



/wait for input of field no, 



/SEE IF VALID 
/ASCII INPUT 
/MASK 15,16 AND 17 

RTR 



/FIRST FIELD TO TEST JS STORED 
/WAIT FOR COMMA 



/PRINT QUERY, AND RESTART 
/WAJT FOR INPUT OF MEM, NO, 



/SEE IF VALID 
/ASCII INPUT 



/WAIT FOR INPUT OF FIEL NO, 



/SEE IF VALID 



PAGE 27 MXC153 MXC158 



?17«1 


223142 


31742 


503206 


^1743 


744222 


217«4 


742222 


J1745 


742020 


31746 


742022 


21747 


243150 


21752 


043150 


i>1751 


777777 


01752 


243143 


217-53 


443143 


31754 


601564 


21755 


203147 


31756 


740001 


31757 


343204 


21760 


343150 


21761 


740102 


21762 


601771 



LAC 


CT32 


AND 


K7 


RCR) 


RTR| 


XOR 


LAST1 


OAC 


LAST1 


LAW 


■I 


OAC 


CT4K 


IS2 


CT4K 


JMP 


QUERY 


LAC 


FlflSTl 


CMA 




TAO 


Kl 


TAO 


LAST! 


SM* 




JMP 


OKAS 



/ASCII INPUT 
/MASK 15,16 AND 17 
RTS| RTR 



/LAST FIELD TO TEST IS STORED 



CREVR IS2 CT4K / N Q 2N p D j G j T , F N0 SKJp 

""""" /PRINT QUERY AND RESTART 

/FIRST FIELD 

/2*S COMPLEMENT 

/FIRST IS >LAST if NEG, 

/FIRST IS LOWEST ORDER 
.EJECT 



PACE. 28 



I^XCiStJ 



MXC15B 



21763 


5231«7 




LAC 


FJRST1 




^176-4 


,.•43146 




OAC 


CT04 


/SAVE 


31765 


223132 




LAC 


LAST1 




21766 


243147 




DAC 


FJRST1 


/LAST IS NOW FJRST 


21767 


223146 




LAC 


CT04 




21772 


3431*2 




OAC 


LAST! 


/FIRST IS NOW LAST 


21771 


223152 


OKAS 


LAC 


LASTl 




21772 


543147 




SAD 


FjRSTi 


/SEE JF ONLY 1 SELECTED 


31773 


741^)20 




SKP 




/YES, SEE IF IT HAS PROG 


21774 


6220«J4 




JMP 


ALOK 




01775 


543122 




SAO 


INSFLQ 


/REJECT IF EQUAL, 


01776 


741Ztf0 




SKP 




/TELL WHERE IT JS 


21777 


622204 




JMP 


ALOK 




22202 


76012 «S0 




LAW 






22221 


341572 




OAC 


L0CAT*4 


/CHANGE JMP» TO NOP 


22202 


121566 




JMS 


LOCAT 




?2ez3 


601656 




JMP 


SLMTS*1 


/RESTART 


22204 


1121544 


ALOK 


JMS 


KEYJN 


/WAIT FOR A C,R 


32005 


543216 




SAD 


KZ15 




22226 


621655 




JMP* 


SLMTS 


/EXJT 


32207 


621564 


/ 

/SETUP 

/ 

SETAC 


JMP 


QUERY 


/PRINT QUERY AND RESTART 






ACS, 


PRESS CARRIAGE 


RETURN TO EXIT 


02012 


.23000 









22211 


122272 




JMS 


CRLF 


/CRiLF 


22012 


222673 




LAC 


SETX 


/POINTER 


22213 


L43154 




DAC 


PRNT 




22014 


1E2B34 




JMS 


PNXT 


/PRINT "SETUP ACS" 


32015 


7Z0312 




KRB 






.'2216 


720321 




KSF 






22217 


622216 




JMP 


.-1 




2222C 


722312 




KRB 






22221 


543226 




SAD 


K377 


/CHECK FOR RO 


22222 


621656 




JMP 


SLMTS*l 


/RESTART 


22223 


7522^4 




LAS 






22224 . 


■243124 




DAC 


MCWA 




22225 


122272 




JMS 


CRLF 


/CR>IF 


22226 


622212 




JMP* 


SETAC 


/EXIT 



.EJECT 
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MXC15S 



MXC15B 



02027 


000000 


02030 


700406 


02031 


7004iil 


02032 


602031 


02033 


622027 


02034 


000000 


02039 


777775 


32036 


0431*2 


02037 


443154 


02040 


223154 


02041 


741200 


02042 


622034 


32043 


042072 


02044 


503212 


02045 


543212 


02046 


602097 


02047 


043137 


02050 


777740 


02esi 


343137 


02052 


7401<)0 


02053 


602067 


02034 


242050 


02059 


243223 


02056 


102027 


02057 


443142 


C2060 


7410*30 


02061 


602035 


J2062 


202072 


02063 


742020 


32064 


742020 


02065 


742020 


?2066. 


602043 


.'2067 


203137 


0207? 


343214 


" 2 C 7 1 


602056 



/PRINT ROUTINES FOR MtSSAGES 

/ 

/PHINT ONE CHARACTER AND EXIT 

/ 

PCHAR 

TLS 

Tsr 

JMP ,-i 

JMP* PCHAR 
/ 

/PRINT A STRING AND EXIT , 
/ 

PNXT 



MASK 



CK3 



LAM 


-J 




OAC 


CT32 


/CHARACTER COUNTER 


ISZ 


PRNT 


/WORD POINTER*! 


LAC* 


PRNT 




SNA 




/ALL DONE IF B 


JMP» 


PNXT 


/EXIT 


OAC 


CRLF 


/SAVE WORD 


AND 


K77 


/MASK 6 BIT CHARACTER 


SAD 


K77 


/CHECK IF RUBOUT 


JMP 


CK3 




DAC 


BJTCON 


/SAVE CHAR 


LAW 


-40 




TAD 


BJTCON 




SMA 




/NEG, » ALPHA 


JMP 


CRLT-3 


/NUMERIC 


XOR 


,-4 




XOR 


KJ00 


/MAKE ALPHA 


JMS 


PCHAR 


/PRINT ACS 10-17 


SKP 


CT32 


/CHECK FOR 3 CHARACTERS 


JMP 


PNXT*1 


/GET NEXT 3 CHARACTERS 


LAC 


CRLf 


/POSITION NEXT 


RTR| 


RTRj RTR 




JMP 


MASK 


/PRINT IT 


LAC 


BJTCON 




TAD 


K220 


/MAKE NUMERIC 


JMP 


CK3-1 





.EJECT 



"AGE 32 



MXC136 



MXCJ.5B 



22272 
22273 
22274 
22275 
22276 
02277 
22122 



22101 
22102 
22103 

22104 

22125 
221126 



22107 

22112 
22111 
22112 
22113 
£2114 
22115 
22116 
22117 
22122 
32121 
22122 
22123 
22124 



J22222 
762215 
122027 
542277 
622Z72 
760212 
622074 



322000 
760240 
132027 

443142 

602122 
6221*31 



000020 
777772 
24.3142 
222072 
744010 
742010 
242072 
740010 
503206 
343220 
1223<;7 
443142 
622112 
622127 



/CARRIAGE RETURNi LINE FEED 

J 


CRUF 









LAW 


215 




JMS 


PCHAR 




SAD 


• *2 




JMP» 


CRLF 




LAW 


212 


/ 

/PHINT 


JMP 


CRLF*2 


SPACES 




/ 






SPING 









LAW 


240 




JMS 


PCHAR 




ISZ 


CT32 




JMP 


SPJNG*1 




JMP» 


SPJNG 


/ 






/PRINT 

/ 

PRQCTL 


SIX DIGIT OCTAL NUMB 









LAW 


■ 6 




DAC 


CT32 




LAC 


crlf 


POSITSJ 


RCLI 


HTL 




DAC 


CRLF 




RAL 






AND 


K7 




TAD 


K260 




JMS 


PCHAR 




ISZ 


CT32 




JMP 


POSITN-i 




JMP* 


PROCTL 



/ASCII CR 



/EXIT 



/ASCII SPACE 

/COUNTER 

/EXIT 



/DIGIT COUNTER 
/OCTAL NUMBER 



/PRINT 



/EXIT 



/POSITION NEXT DIGIT 



.EJECT 
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MXC15B 



MXC15B 



32125 

32126 

32127 

32130 

22131 

02132 

22133 

02131 

02135 

32136 

02137 

02140 

02141 

02142 

02143 

02144 

02145 

02146 

02147 

02150 



02151 
02152 
02153 
02154 
02155 
02156 
02157 
02160 
22161 
22162 
02163 

22164 
32165 
£2166 
•?2167 
22173 
-2171 
•52172 
02173 
32174 
C2175 



202674 
043250 
203150 
543147 
600216' 
203121 
741100 

600216 
740020 
741400 
602224 
443121 
203150 
043122 
770000 
343122 
043171 
100646 
543122 
602207 



76006)0 
563250 
602164 
223250 
543122 
602176 
443250 
203250 
542675 
741000 
602154 

202674 
343250 
203122 
243173 
100646 
.343172 
543173 
600216 
203173 
602J4J 



/XCH15 - TAPE 3 

/ 

/HOUTJNE TO DE 

/ 



TERMJNE FJE L D FOR RELOCATION 



CMQVE 



LAC 
OAC 
LAC 
SAO 
JMP 
LAC 
SPA 
JMP 
RAR 

SZL 
JMP 
IS2 
LAC 
DAC 
LAW 
TAD 
OAC 
JMS 
SAO 
JMP 



/NOW CHECK FOR 
/ 



CKERR 



/ 

STMV 



LAW 

SAD* 

JMP 

LAC* 

SAD 

JMP 

ISH 

LAC 

SAO 

SKP 

JMP 

LAC 
OAC 
LAC 
DAC 
JMS 
OAC 
SAO 
JMP 
LAC 

JMP 
■EJECT 



ERTBL 

ERWRD 

LAST1 

FIRST! 

RT/Ni 

FLAGS 

RTN1 



NXTMV 
FLAGS 
LAST1 
JN3FLP 

-10000 

INSFLU 
NXLOC" 

WHERE 

INSFLU 

SUB1 



/LAST TO TEST 

•DON'T MOVE IF EQUAL 

/RETURN U 

/PROGRAM FLAGS 

/FORCED MOVE MADE IF A 1. 

/DON'T MOVE 

/LINK ■ BJT 17 

/FIRST MOVE IF SKIP 

/SETUP FOR NEXT MOVE 

/SET FLAG FOR 1ST MOVE 

/-4K 

^w. B I2* CT 4K FR0M CURRENT 
/NXLOC ■ OESTiN FOR NEXT TIME. 
/WHERE ARE WE NOW l ' 

yr»v E ^!, IN LAST * ir "UAL 
/TRY NEXT LOWER 



ERROR HECOROEO In NEW FIELD 



ERWRD 

STMV 

ERWRD 

INSFLU 

EQUAL' 

ERWRD 

ERWRD 

ENERR 

CKERR*3 

ERTBL 

ERWRD 

INSFLU 

OESTN 

WHERE 

SOURCt 

OESTN" 

RTN1 

DESTN 

MOVE 



/NO ERRORS IF • 1.AW 
/INITIALIZE MOVE 

/ERROR IN FJELO IF EQUAL 

/POINTER * 1 

/END OF TABLE IF EQUAL 



/RE5T0RE POINTER 
/NEW FIELD 



/NEW AND CURRENT ARE EQUAL 
/MOVE PROGRAM 



AGE. 32 


MXC15B 


MXC15B 










/ERROR 
/ 

EQUAL 


JN NEW 


FIELD, TRY 


^2176 


543147 


SAD 


FJRST1 


32177 


602221 




JMP 


DNMVE 


022B3 


741200 




SNA 




C2201 


6022U5 




JMP 


.*4 


32202 


770000 




LAW 


-10000 


32203 


343122 




TAD 


INSFLU 


32204 


043171 




DAC 


NXLOC" 


22205 


202674 




LAC 


ERTBL 


22206 


043250 


/ 

SUH1 


. OAC 


ERWRU 


32207 


203171 


LAC 


NXLOC 


02210 


543122 




SAO 


JNSFLD 


32211 


602176 




JMP 


EQUAL' 


02212 


043122 




OAC 


JNSFLD 


32213 


543147 




SAO 


FIRST! 


32214 


602151 




JMP 


CKERR 


32215 


770000 




LAW 


-10000 


32216 


343122 




TAO 


INSFLO 


32217 


343171 




OAC 


NXLOC" 


32220 


602191 


/ 

DNMVE 


JMP 


CKERR 


32221 


202674 


LAC 


ERTBL 


32222 


343250 




DAC 


ERWRD 


32223 


630216 




JMP 


RTNl 



NEXT LOWER 

/DON'T TRY NEXT IF EQUAL 

/IS IT FIELD B 

/YES 

/.4K 

/SUBTRACT 4K FROM NEW FIELD 

/NEXT NEW FJELO 

/RESTORE POINTER 

/NEXT NEW FJELO 

/IS IT « CURRENT NEW FIELD 

/TRY NEXT LOWER 

/NEW NEW FIELD 

/DOES IT ■ LOWEST FIELD 

/CHECK FOR ERROR 

/SUBTRACT 4K 

/NEW FIELD FOR NEXT PaSS 



/RESTORE POINTER 
/START OVER 



.EJECT 
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MXC15B 



MXC15B 







/ROUTINE TO DE 
/ 

NXTMV JMS 


TERMJNE P 


22224 


100646 


WHERE 


22225 


043172 


DAC 


SOURCE 


02226 


76004)0 


CKNXT LAW 




02227 


563250 


SAO* 


ERWRD 


02230 


602243 


JMP 


STNXT 


02231 


202674 


LAC 


ERTBL 


02232 


343250 


DAC 


ERWRD 


32233 


223250 


LAC» 


ERWRO 


02234 


543171 


SAO 


nxloc 

SU82 


02235 


602263 


JMP 


02236 


443250 


ISZ 


ERWRD 


22237 


203250 


LAC 


ERWRO 


22240 


542675 


SAD 


ENERR 


02241 


741000 


SK.P 




02242 


602233 


JMP 
/ 
STNXT LAC 


CKNXT»5 


02243 


202674 


ERTBL 


22244 


043250 


DAC 


ERWRO 


02245 


203171 


LAC 


NXLOC 


02246 


543122 


SAO 


insplo 


02247 


602232 


JMP 


.*3 


02250 


543147 


SAD 


F JRSU 


02251 


602300 


JMP 


MVBK 


02252 


543147 


SAD 


FIRST! 


22253 


602274 


JMP 


NXTHI 


02254 


043122 


OAC 


INSFLO 


02255 


770000 


LAW 


-10000 


02256 


343122 


TAD 


INSFLO 


02257 


043171 


OAC 


NXLOC" 


32260 


203122 


LAC 


INSFLO 


02261 


043173 


OAC 


OESTN" 


?2262 


602343 


JMP 
.EJECT 


MOVE 



DEST'N AFTER MAKING ONE MOVE 
/WHERE IS PROGRAM NOW 

/NO ERRORS IF 1ST • LAW 

/GET AN ERROR ADDRESS 

/ERROR IN NEXT FIELD TRY NEXT 

/DONE TABLE AND NO ERRORS 



/RESTORE POINTER 

/NEW FIELD 

/DOES IT ■ CURRENT FIELD 

/DOES IT ■ LOWEST FIELD 

/YES, CLEAR FLAGS AND MOVE 

/DOES THE CU RENT ALSOi 

'THE LOWEST FIELD. 

/YES, SETUP FOR HIGHEST FIELD 

/NEW CURRENT FJELD 

/•4K 

/NEW NEXT FIELD 



/MOVE FROM HERE TO C tDESTN) 



PAC£ 3* 



MXC15B 



MXC15B 



Z22ti 
c22bi 
L'2265 
"2266 
Z2267 
22273 
C2271 
C2272 
22273 

22274 
Z2275 
>?2276 
22277 

£2302 
32301 
22322 
22303 
E23Z* 
32325 
22326 



2*53171 
543147 
522221 
77Zk!^0 
343171 
^43171 
543122 
602264 
602231 

203150 
503244 
1343171 
602231 

120646 
£43172 
203171 
043122 
243173 
143121 
602343 



/ 






SUH2 


L*C 


NXLOC 




SAD 


FJRST1 




JMP 


QNMVE 




LAW 


-1000k) 




TAD 


NXLOC" 




OAC 


NXLOC 




SAO 


JNSPLO 




JMP 


SUB2*i 


/ 

NXTHJ 


JMP 


CKNXT+3 


LAC 


LAST! 




AND 


K370K 




OAC 


NXLOC 


/ 
MVBK 


JMP 


CKNXT*3 


JMS 


WHERE 




OAC 


SOURCE 




LAC 


NXLOC" 




OAC 


JNSFLO 




OAC 


QESTN 




OHM 


FLAGS 




JMP 


MOVE 



/IS NEXT a FIELD ZZ OR 1ST TO TEST 

/YES, OONtT MOVE 
/-4K 

/new next field 

/DOES IT p CURRENT HELD 

/YES 

/SEE IF ERROR IN NEW FIELD 

/LAST TO TEST 

/LAST • NEXT FIELD 
/CHECK FOR ERROR 



.EJECT 
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MXC15B 



MXC15B 



02307 
02310 
023H 
22312 
02313 
22314 
22315 
02316 



02317 
02320 
02321 
02322 
02323 
02324 
02325 
02326 
32327 
02330 
02331 
02332 

02333 
02334 
22335 
02336 

02337 

02340 
02341 

02342 



203242 
7400t;i 
503121 
243242 

043121 
202674 
243250 

102452 



7600450 
563250 
602343 
223250 
543173 
602332 
443252 
203230 
542675 
602333 
602322 
102430 

202674 
043250 
203173 
543172 

600216 

043122 
503241 

043176 



/ROUTINE TO FORCE MOVE. 
/FIELD* MUST BE TYPED" I 
/ 



FCDMV 



LAC 

CMA 
AND 
XOR 
DAC 
LAC 
DAC 
JMS 



K400K 

FLAGS 
K400K 
FLAGS 
ERTBL 
ERWRD 
GOTO 



THE PROGRAM. DESTINATION 

N BY THE OPERATOR (00-37 OCTAL), 



/SET BIT FOR FCDMV FLAG 



/CHECK FOR ERROR IN NEW 



CKFCD 



XPRT 
/ 



LAW 

SAO* 

JMP 

L*C* 

SAO 

JMP 

152 

LAC 

SAD 

JMP 

JMP 

JMS 

LAC 
DAC 
LAC 
SAO 
JMP 
DAC 
AND 
DAC 



ERWRD 

MOVE 

ERWRD 

DESTN 

XPRT 

ERWRD 

ERWRD 

ENCRR 

.♦3 

CKFCD*3 

PRSEL 

ERTBL 

ERWRD 

OESTN 

SOURCE 

RTN1 " 

INSFLO 

K300K" 

PJNX 



FIELD 



/RESTORE TABLE POINTER 
/PKJNT GO TO FIELD 



/NO ERRORS JF 1ST t LAW 
/SEE WHERE TO GO 

/DOES ERROR ■ NEW FIELD 
/YES, PRINT MESSAGE 
/POINTER*! 

/SEE IF END OF TABLE 
/DONE AND NO ERRORS 

/PRINT ERROR IN SELECTED 4K 



.EJECT 



^AGt 36 



*XC15B 



MXC15B 



22343 


142600 


32344 


203173 


02345 


503241 


22346 


043176 


32347 


770000 


Z2350 


043143 


02351 


203172 


22352 


^'.43174 


22353 


740031 


£2354 


343173 


02355 


7210k)0 


02356 


1432^1 


32357 


223174 


22360 


043136 


£2361 


102437 


02362 


050000 


02363 


210000 


22364 


563174 


32365 


741000 


32366 


102551 


32367 


443174 


2237? 


737001 


.22371 


443143 


32372 


7410*50 


22373 


602421 


?2374 


203136 


22375 


542652 


T2376 


741000 


22377 


602357 



/ROUTINE TO RELOCATE THE PROGRAM 

/ 

MOVE 



MOSOM 



OZM 


LOCER 


LAC 


OESTN 


AND 


K300K 


DAC 


PJNX 


LAW 


•10000 


OAC 


CT4K 


LAC 


SOURCE 


DAC 


MOVES 


CMAIIAC 




TAD 


OESTN 


PAX 




D2M 


MEMADR 


LAC» 


MOVES 


DAC 


TNUM 


JMS 


RTJ9L 


DAC 


X 


LAC 


X 


SAD» 


MOVES 


SKP 




JMS 


MVERR 


ISH 


MOVES 


AXR*1 




ISZ 


CT4K 


SKP 




JMP 


OIND 


LAC 


TNUM 


SAD 


OLHT 


SKP 




JMP 


MOSOM 



/-4K 

/4K COUNTER 
/CURRENT FIELD 



/NEW FIELD 
/LOC ZERO START 
/MOVE FROM CURRENT 
/SAVE 

/PUT IN NEW FIELD 

/READ BACK 

/COMPARE 

/OK 

/PRINT ERROR INFO 

/INCREMENT ADDRESSES 



/DELIMITING CHARACTER 
/ADJUST INOJRECTS 



•EJECT 



PAGE il 


KXC15B MXC15B 




024150 


223174 AJ!N LAC» 


MOVES 


02«01 


542713 


SAD 


OLMTA 


02402 


602360 


JMP 


MQS0M*1 


02403 


503232 


AND 


K7777 


02404 


243173 


XOR 


DESTN 


024125 


102437 


JMS 


RT19L 


02426 


050000 


□ AC 


X 


02407 


210000 


LAC 


X 


22410 


503232 


AND 


K7777 


22411 


243172 


XOR 


SOURCE. 


32412 


563174 


SAD* 


MOVES" 


22413 


741000 


SKP 




e2414 ■ 


102951 


JMS 


MVERR 


02415 


443174 


ISZ 


MOVES 


02416 


737001 


AXR*1 




32417 


443143 


ISZ 


CT4K 


02420 


602400 

/ 
10252& D' 


JMP 


AJJN 


02421 


I NO JMS 


ENOT 


02422 


20317? 


LAC 


SOURCE 


02423 


740031 


CMAIIAC 




02424 


343173 


TAD 


OfSTN 


02425 


721000 


PAX 




02426 


740000 


NOP 




02427 


610216 

/ 


JMP 


RTNl»x 




.EJECT 





/DONE INDJRECTS IF EQUAL 

/MASK ADDRESS BITS 
'PUT FIELD NUMBER ON JT 

/PUT IN NEW PJELD 
/READ SACK 



/COMPARE 

/OK 

/PRINT ERROR INFO 

/INCREMENT ADDRESSES 



/WAS TRANSFER MADE OK 



/EXJT from here to loc 
/RTN1 IN NEW rjELO 



'AU 



MXoj.5fJ 



MXClSts 



22432 
22431 
02432 
22433 
02434 
22435 
02436 



22437 
22442 
22441 
22442 
22443 
32444 
22445 
32446 
22447 
22*50 
324*1 



22452 
22453 
22454 
£2455 
22456 
22457 
22463 
22461 
22*62 
22463 
22464 
22465 
22«66 
32*67 
32473 
32«71 
22472 
32473 
3 2*74 
3 24 73 

;2476 



3000fc0 
102072 
202712 
243154 
122034 
102072 
6?23t>7 



2100000 
7440150 
243136 
777767 
243146 
203136 
74B010 
742010 
443146 
602446 
622437 



-002123 
7500ki4 
503211 
741220 
602470 
1225572 
202721 
243154 
122034 
7500kJ4 
523211 
74?Z" t '2 

r22463 
122272 
122272 
2Z2Tv2 
^•43154 
122234 
121&44 
543216 

622544 



/PRINT 
/ 

PRSEl 


ERROR I 


N SELEC 









JMS 


CRLF 




LAC 


ERSEL 




OAC 


PRNT 




JMS 


PNXT 




JMS 


CRLF 




JMP 


FCOMV 



/CC Lf 

/TEXT POINTER 

/PRINT 

/W*IT FOR ANOTHER CHOICE 



/ROTATE INSTRUCTION IV (.EFT BEFORE MOVING 
/ 

RU'L 2 

/LINK ■ 

/SAVE 

/.9 OECIHAL 

/SHIFT COUNT 

/INSTRUCTION 



CLl 




OAC 


TNJM 


LAW 


-11 


OAC 


CT04 


LAC 


TNUM 


RAL 




RTL 




188 


CTB4 


JMP 


i-2 


JMP« 


HT19 



/KEYBOARD ROUTINE FOR FORCED RELOCATION 
/ 



GOTO 



NOSW 



LAS 




AND 


«40 


SNA 




JMP 


NOSW 


JMS 


CRLF 


LAC 


PTWLV 


OAC 


PRNT 


jmS 


PNXT 


LAS 




AND 


K40 


S2A 




JMP 


.-3 


JMS 


CRLF 


JMS 


CRLF 


LAC 


GOFl 


OAC 


PRNT 


JMS 


PNXT 


JMS 


<EYJN 


SAD 


<215 



JMP 



CfLG 



/READ ACS 

/CHECK BIT 12 

/EQUALS 

/CRiLF 

/TEXT POINTER 

/PRINT PUT ACS 12 ON A 



/WAIT FOR THE 

/CRiLF X 2 

/TEXT POINTER 

/PRINT cc TO FIELD - 
/WAIT FOR INPUT 
/A CR - NO FORCED MOVE 
/AND RESUME AUTO RELOCATE 
/CLEAR THE FORCED MOVE FlAG 



.EJECT 



PAGE 



*XC15B 



MXC15B 



:i«77 


5432*6 


22522 


S0247e 


22521 


742020 


225i:2 


742020 


22523 


523241 


225K4 


243173 


22535 


101544 


22506 


543216 


22507 


602544 


22512 


543226 


22511 


622470 


22512 


7420*0 


22513 


742020 


22514 


742020 


ezsis 


74002? 


22516 


503237 


22517 


243173 


32520 


043173 


22521 


120646 


-2522 


243172 


32523 


102072 


22524 


622452 


22525 


000000 


22525 


2026*10 


22527 


7412140 


22532 


622525 


02531 


707704 


22532 


1426*10 


22533 


102072 


32534 


202704 


02535 


243154 


22534 


102034 


22537 


102072 


22542 


203121 


32541 


7411fci0 


22542 


602307 


22543 


602243 


2 2 5 « 4 


223242 


22545 


7400KJ1 


2 2 5 « J 


523121 


225«7 


C43121 


22552 


622216 



SAD 


K377 


JMP 


NOSW 


RTRI 


RTR 


AND 


K300K 


DAC 


OESTN 


JMS 


KEYJN 


SAO 


K215 


JMP 


CFi G 
K377 


SAD 


JMP 


NOSW 


RTRI 


RTRI 


AND 


K70K 


XOR 


DESTN 


DAC 


DESTN 


JMS 


WHERE 


DAC 


SOURCE 


JMS 


CRLr 


JMP* 


GOTO 


ENQT 




LAC 


LOCER 


SNA 




JMP* 


ENOT 


/ 




LEM 




D2M 


LOCER 


JMS 


ML/ 


LAC 


NERN 


OAC 


PRNT 


JMS 


PNXT 


JMS 


CRLf 


LAC 


FLAGS 


SPA 




JMP 


FCOMV 


JMP 


STNXT 


/ 




CFLG LAC . 


K400K 


CMA 




AND 


FLAGS 


OAC 


FLAGS 


JMP 


RTN1 


•EJECT 





/RUBOUT, RE-PRJNTl GO TO FIELD 



/MASK BITS 1,2, 

/FIRST CHAR, OF FlELO NO, 

/WAJT FOR INPUT, 

/A CR - NO FORCED MOVE 

/AND RESUME AUTO RELOCATE, 

/CLEAR THE FORCED MOVE Fi AG, 

/RUBOUT, RE-PRJNTi GO TO FIELD 

RTR) RAR 



/MASK BITS 3.4 ft 5, 

/OR FIRST « SECOND CHARS, 

/NEW FIELD. 

/WHERE ARE WE NOW 

/CURRENT FJELD 

/C«i LF 

/CHECK FOR ERROR 



/NO ERRORS IF 
/ENTER NEW FIELD 



/CRiLF 

/TEXT POINTER 

/PRINT NO MORE ERRORS 
/CRiLF 

/ACS A 1 ■ FORCED MOVE 
/WAIT FOR ANOTHER CHOICE 
/TRY NEXT FJELD LOWER 



/CLEAR THE FORCED MOVE FlAG 
/START OVER 
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MXC15B 



MXC15B 



J2552 
22553 
i;2554 
22555 

£2557 
0Z568 
22561 
22562 
02563 
£2564 
02565 
32566 
?2567 
22570 
22571 

22572 
22573 
3257* 
22575 
32576 
22577 

32620 

L'2eei 

22602 
22603 
22624 
22605 

22626 

22607 
22613 
22611 
22612 
-'2*13 
2 2614 

22615 



J 2 2 C Z 
2-43151 
7210K/0 
243152 
223174 
243153 
222616 

741200 

122616 

202620 
741ZU0 

1226^0 

222615 
041806 
102072 
777766 

600763 

200761 

2410216 
7530 if « 

741100 
100653 
622551 

0?00t)0 
1E2072 
202703 
243154 
102034 
102072 
622620 

200000 
1221372 

760277 

102027 
1??072 
622607 

602572 



MVLRR 









DAC 


BA01 




PAX 






DAC 


OCADR 




LAO 


MOVES 




DAC 


C00D1 




LAC 


PHQR 




SNA 






JMS 


PHOR 




LAC 


LOCER 




SNA 






JMS 


LOCER 




LAC 


JMP3 




DAC 


INOY 




JMS 


crlf 




LAW 


•12 




JMP 


STER 


/ 








LAC 


STCR*l 




DAC 


INOY 




LAS 






SPA 






JMS 


HALT 


/ 

LOCER 


JMP* 


MVERR 









JMS 


CHLF 




LAC 


RELOC 




DAC 


PRNT 




JMS 


PNXT 




JMS 


C«LF 


/ 

WOTIS 


JMP* 


LOCER 









JMS 


CRLF 




LAW 


277 




JMS 


PCHAR 




JMS' 


C«Lf 


/ 

JMp3 


JMP» 


WOT IS 


JMP 


IQCES- 



/SAVE INCORRECT INSTRUCTION 

/FIELD AND ADDRESS 

/SAVE 

/CORRECT INSTRUCTION 

/SAVE 



/DON'T PRJNT IF 1 

/PRINT PROGRAM RELOCATION ERROR 

/JMP LOCER-3 



/•IB DECIMAL 
/PRINT INFO 

/EQUALS JMS SPJNG 



/EXIT 



/CR.LF 

/TEXT POINTER 

/PRINT PROGRAM RELOCATION ERROR 

/CRiLF X 2 

/EXIT AND PRINT TWE ERROR 



/CRiLF 
/QUERY MARK 
/PHINT 
/CR.LF 
/EXIT 



.EJECT 



p AGE 



MXC158 



HXC15B 



22616 


5 00000 


22617 


102072 


02620 


202705 


32621 


043154 


32622 


102034 


02623 


102645 


32624 


202706 


22625 


043154 


22626 


102034 


02627 


102645 


22630 


202707 


22631 


043154 


02632 


102044 


32633 


102645 


02634 


202710 


32633 


043154 


32636 


102034 


22637 


102645 


22640 


202711 


02641 


043154 


02642 


102034 


02643 


102072 


02644 


622616 


02645 


000000 


02646 


777773 


02647 


043142 


02650 


102101 


02651 


622645 



/HEADER ROUTINE 




PHQR 











JMS 


CRLP 


/CR.LP 




LAC 
DAC 


TSTX 

PRNT 


/POINTER TOR "TEST* 




JMS 


PNXT 


/P«JNT TEST 




JMS 


CLMN 


/SPACE 5 




LAC 
DAC 


AORXA 

PRNT 


'"OCTAL ADR," 




JMS 


PNXT • 






JMS 


CLMN 


/SPACE 5 




LAC 


GOATX 


/"GOOD" 




DAC 


PRNT 






JMS 


PNXT 






JMS 


CLMN 


/SPACE 5 




LAC 


BQATX 


/"BAD" 




DAC 


PRNT 






JMS 


PNXT 






JMS 


CLMN 


/SPACE 5 




LAC 
OAC 


PCUX 
PRNT 


/"PAT, CONTROL WORD" 




JMS 


PNXT 






JMS 


CRLT 


/CR»LF" 


/ 


JMP» 


PMOR 


/DONE 


ClMN 











LAW 


-5 






DAC 


CT32 






JMS 


SPJNG 


/SPACE 


/ 


JMP» 
.EJECT 


CLMN 





AGE «2 


MXCISH 


MXC158 










/ 

/RETURN 
/ 

Dlmt 


ADDRESSES UNOJRECTS! 


32652 


752521 


752521 




22653 


£02756 


tsnx 


TSTNR 


/TEST0- 


02654 


022762 


ADRX 


FADR1 


/FIRST ADR,- 


22655 


F 1 6 7 


AD1R 


ADR1 




22636 


001117 


DON! 


DFST 




22657 


002770 


AQX.R 


LADS1 


/LAST AqRi" 


22662 


201143 


AD*R 


ADR2 




22661 


,321171 


D0N2 


DLST 




22662 


032773 


SUPX 


SUPR 


/SUPPRESS- 


22663 


001411 


SUPXA 


SUPBJT*1 




22664 


003062 


ADfUP 


FRST 


/FJRST 


22665 


323064 


ADR2P 


LSTA 


/LAST 


22666 


323022 


ovrlp 


ovrlap 


/ADR, IS WITHIN PROGRAM 


22667 


323234 


P1SIN 


PROJS 


/PROGRAM IS IN FIELD 


2267^ 


•203045 


tlmx 


TSLM 


/TEST LIMITS 


02671 


301656 


SLMX 


SLHTS*1 




22672 


001733 


O0N3 


CREVR 




02673 


003053 


SETX 


STACS 


/SETUP ACS 


£2674 


303231 


ERTBL 


ERWRD*! 




22675 


003311 


ENERR 


ERWRD*41 




22676 


303070 


PTO 


PT01 




22677 


231647 


ROTA 


ROTC 




22700 


2-01647 


ROTB 


ROTC 




22721 


203127 


PTWLV 


PUT12 




02702 


303101 


GOFL 


GOFLD 




22703 


303013 


REUOC 


PROS 




227;i)4 


303025 


NERN 


NOMO 




22725 


002714 


TSTX 


TST 




22706 


002720 


AORXA 


AOR 




2270 7 


.502725 


GDATX 


COAT 




22713 


002731 


BOAT* 


BOAT 




22711 


002734 


PCWX 


PCWR 




22712 


202744 


ERSEL 


S1.TER 




22713 


752322 


DLMTA 


752322 

.EJECT 





5 AG£ 43 MXC158 MXC15B 



02714 


002714 


02715 


230524 


02716 


777724 


32717 


000000 


02720 


002720 


02721 


240317 


32722 


401401 


22723 


220401 


22724 


000000 


22725 


S02725 


22726 


171707 


22727 


777704 


?2730 


000000 


22731 


002731 


22732 


340102 


02733 


000000 


22734 


002734 


32735 


240120 


02736 


170340 


02737 


222416 


02740 


401417 


02741 


221727 


22742 


777704 


02743 


000000 


22744 


302744 


£2745 


222205 


02746 


402.217 


22747 


401611 


£2753 


140523 


22751 


240303 


32752 


400405 


32753 


351106 


3Z754 


770414 


£2755 


000000 


32756 


002756 


32757 


230524 


.'2763 


774024 


.2761 


£00000 


32762 


3:02762 


32763 


221106 


3 2 7 6 4 


4024*3 


32765 


220401 


22766 


777740 



/ 

/CONSTANTS FOR PRINT ROUTINE TExTS. PACKED 

/3 CHARACTERS P£» WORD, "mtu 

/ 

/"TEST" 

TST , 

230524J 777724) 



/ 

ADR 



/ 
S|.TER 



/ 

TSTNR 



/ 

FADR1 



i 

240317) 401401) 2204011 



/ 

GDAT 


■ 

171707J 777704| 


/ 

BOAT 


i 

0401021 


/ 

PCWR 


i 



2401201 170340J 222416) 401417 
221727J 777704| 

2222051 4B2217| 4016111 140523 
2403051 400405J 051106J 770414 



2305241 774024) 



221106) 40242J) 220401) 777740 



PAGE. 44 KXClSti 

02767 ,3200GB 



02773 


002770 


02771 


230114 


22772 


13140<!4 


,32773 


432244 


?>2774 


£B00<;0 


02779 


^02775 


32776 


222523 


22777 


,352220 


33000 


402323 


33001 


e20030 



HXC15B 



I.ADR1 



2301141 0140241 402204 



SUPR i 

202S23I 0522201 4023231 



.EJECT 
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03002 


003002 


03003 


220401 


33004 


231143 


03005 


112740 


03006 


111024 


03007 


204016 


030X0 


071722 


03011 


150122 


03013 


000000 


03013 


003013 


03014 


172220 


03015 


012207 


03016 


224015 


33017 


171405 


03020 


240103 


03021 


161711 


03022 


220540 


03023 


221722 


03024 


000000 


03029 


0030*5 


03026 


401716 


03027 


221715 


03030 


054005 


33031 


172222 


03032 


772322 


03033 


000000 


03034 


003034 


03033 


172220 


03036 


012207 


03037 


114015 


03040 


114023 


33041 


064016 


03042 


140511 


03043 


774004 


<?3044 


00000? 


33045 


003045 


23046 


230524 


?3047 


144024 


03050 


111511 


C3051 


772324 


03052 


000000 


C3053 


0030»3 


23054 


240523 


^3055 


4020^5 


J3056 


2303^1 


33297 


^00000 


?3CS2 


i?03060 


:306i 


2211«J6 



OVRLAP , 

2204011 231140J 1127401 111024 



2040161 0717221 150122J 



/ 

PRQR 



NOMO 



/ 

PRQIS 



/ 
TSUM 



STACS 



/ 

FRST 



172220) 01820/1 2240151 171405 



24010JJ 1617111 2205401 221722 



■ 

4017161 2217151 054005} 172222 



772322) 

1722201 01820/| H40!5, u«»23 

064016| 14051U 7740041 

i 

2305241 1440241 1115111 772324 



i 

2405231 4020251 230301! 



2211061 40242,51 



page. <6 



MXC15B 



MXC15B 



Z3062 


402423 


C3063 


300000 


t3064 


023064 


03265 


230114 


23266 


774024 


33067 


000000 


03270 


003070 


03071 


112220 


03072 


402416 


03073 


242517 


123074 


114023 


03075 


111016 


63076 


241102 


03077 


770401? 


03100 


000000 


03101 


003101 


03102 


401707 


03103 


401724 


03104 


051106 


23105 


400414 


03106 


Z00000 


03107 


0Z3107 


03110 


242520 


03111 


030140 


03112 


614023 


03113 


174062 


03114 


014016 


03115 


776040 


03116 


320000 



/ 

USTA 



230114) 7740241 



PTOI , 

1122201 40241S| 2425171 114023 



1110161 24110*| 7704051 



GOFLD i 



4017071 4017?4| 051J.06, 400414 



PUT12 , 

2425201 0301401 6140231 174062 



014016) 7760401 



•EJECT 
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MXC15B 



MXC15B 



03117 777770 



/STORAGE AND CONSTANT REGISTERS 
/ 

SIXT4 LAW -10 



03120 


200000 


23121 


000000 


03122 


000000 


03123 


000000 


03124 


000000 


03125 


000000 


03126 


000000 


03127 


776000 


03130 


525250 


03131 


777777 


03132 


000000 


03133 


000000 


03134 


000000 


03135 


000000 


03136 


000004 


03137 


000000 


03140 


000000 


03141 


000000 


03142 


000000 


03143 


000000 


03144 


000000 


03145 


000000 


03146 


000000 


03147 


000000 


03190 


000000 


03151 


000000 


03152 


000004 


03153 


000000 


03154 


000000 


03155 


000000 


03156 


000004 


03157 


000000 


03160 


,-100000 


03161 


000000 


03162 


000004 


03163 


000000 


03164 


200000 


03165 


0000k)0 


03166 


000000 


03167 


000000 


0317B 


777777 


03171 


000000 


03172 


£00000 


33173 


?00000 


03174 


000000 


03175 


000216 


03176 


£•0000? 


£3177 


■J00000 


03202 1 


iT 00000 


03201 


CP0000 



NOPRNT 





FLAGS 





JNSFLD 





LAST 





MCWA 





PCW 





CNTRL 





PCHA 


776000 


PCWB 


525250 


PCWC 


777777 


PATR 





PATG 





PATWD 





PATN 





TNUH 


4 


BJTCON 





SVADR 





CT02 





CT32 





CT4K 





CT16 





CT128 





CTB4 





FIRST! 





LAST1 





BA01 





OCAOR 


4 


G0001 





PRNT 





AORCW 





EXIT 


4 


OVER 





AORA 





ADRB 





NRQTA 


4 


LT5T 





TTVW 





TTYX 





TTYY 





sew 





BJTSUP 


LAW 


NXLOC 





SOURCE 





DE5TN 





MOVES 





BGNLO 


RTN1 


PI NX 





SXR 





WORK 





MEMAOP 







.EJECT 



/COUNTS 64 PASSES BETWEEN 

/ERROR PRINT SUPPRESSION, 

/INDICATES ENO OF ERROR PRINT. OUTS 

/SAVES SUBROUTINE FLAGS 

/CURRENT FIELD WITH PROGRAM 

/L«ST FIELD WITH DATA ERROR 

/SAVES ACS SETTINGS 

/CURRENT PAT.CONTROL WORDS 

/SAME AS PCW 

/CONTROL WORD FOR TEST 1 

/FOR TEST 2 

/FOR TEST 3 

/ROTATES CONTROL WORD 

/SAVES GOOD DATA DURING READ 

/SAME AS PATG SUT HAS SUPPRESSES BITS 

/HAS CONTROL WORD TO ROTATE 

/ASCII TEST NUMBER 

/FIELD COUNTER 



/4k counter 

/counts 16 rotates 

/counts 128 locations 

/utility counter 

/first fielo to test 

/last fjeld to test 

/saves bad oata 

/saves failing octal a dress 

/good data 

/pointer for prjnt routines 

/partial address word 

/to dismiss 

/pointer to start of subroutines 

/1st adr, from keyboard input 

/last adr, from keyboard input 

/rotate counter 

/last aqr, for scope loops 

/ttyw thru yy used for keyboard 

/input bit suppression 

/temp storage of suppressed bits 
/each suppressed bit * 
/next field to move into 
/field to move from 
/field to move to 

/SAVE AS MOVED 

/EXIT ADR, TO A NEW FJELD 

/STORAGE OF MEM, BLOCK THAT PROG, IS !\ 
/STORAGE LOG, FOR XR, 
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48 


MXC15U 


MXC15B 




02202 


000000 


/ 

XMSK 





33203 


£00000 


XCOM 





33204 


1300001 


Kl 


1 


33205 


000002 


K2 


2 


33206 


000007 


<7 


7 


23207 


000010 


K10 


10 


23210 


000020 


K20 


20 


332X1 


00004? 


K40 


40 


33212 


000077 


K77 


77 


03213 


000100 


K100 


100 


03214 


000200 


K-200 


200 


03219 


000212 


K212 


212 


03216 


000215 


K215 


215 


03217 


0002S4 


K2&4 


254 


33220 


000260 


K260 


260 


33221 


000263 


K263 


263 


03222 


000270 


K270 


270 


03223 


000300 


K300 


300 


03224 


000331 


K331 


331 


03225 


000370 


KJ70 


370 


03226 


000377 


K377 


377 


03227 


000400 


K400 


400 


03230 


004000 


K4K. 


4000 


23231 


007700 


K7700 


7700 


03232 


007777 


K7777 


7777 


03233 


010000 


K10K 


10000 


03234 


017777 


K17S 


17777 


03235 


020000 


K20K 


20000 


03236 


040000 


K40K 


40000 


33237 


070000 


K7KJK 


70000 


03240 


074000 


K74K 


74000 


23241 


300000 


K300K 


300000 


L'3242 


400000 


K4U0K 


400000 


03243 


177777 


K177 


177777 


03244 


370000 


K370K 


370000 


03245 


700000 


K7U0K 


700000 


23246 


770000 


K770K 

/ 


770000 



.EJECT 



/X-ADDRESS MASK 

/COUNTS X-LINES FO" PATTERN COMP, 



PAKE <9 


MXC15S 


MXC15B 








/EHROR 


FLAG 


23247 


7777*50 


/ 

MAXERR 


LAW 


£3252 


G03251 


ERWRD 


• *1 


03251 


76001(90 




LAW 


23252 


760000 




LAM 
LAW 


03253 


760000 




03254 


760000 




LAW 


33255 


760000 




LAW 
LAW 


03256 


760000 




33257 


760000 




LAW 
LAW 


03260 


760000 




83261 


760000 




LAW 


03262 


760000 




LAW 
LAW 


03263 


760000 




03264 


760000 




LAW 


03265 


760000 




LAW 

LAW 


33266 


760000 




03267 


760000 




LAW 


03270 


760000 




LAW 


03271 


760000 




LAW 


03272 


760000 




LAW 


03273 


760000 




LAW 
LAW 
LAW 
LAW 
LAW 
LAW 


03274 


760000 




03275 


760000 




03276 


760000 




03277 


760000 




03300 


760000 




03301 


760000 




LAW 
LAW 


03302 


760000 




03303 


760000 




LAW 

LAW 


03304 


760000 




03305 


760000 




LAW 
LAW 


033H6 


760000 




03307 


760002 




LAW 


03310 


76000? 




LAW 




000B00 




,END 


03311 


770000 


*L 






SJ2E« 


103312 





-100 



PAGE. b 


k. MXCl5ti 


AQR 


22723 


AQRA 


33160 


ADRti 


i?3161 


ADRCW 


03155 


AORX 


02654 


ADRXA 


22706 


ADR1 


51067 


AORlP 


22664 


ADR2 


31143 


ADR2P 


S2665 


AQXR 


02657 


AD1R 


02655 


A02R 


32660. 


AGAIN 


01420 


AJIN 


02400 


*UOK 


^2004 


BADl 


03151 


8D*T 


02731 


80ATX 


02710 


BEGIN 


00200 


9GNLO 


03175 


SITCON 


03137 


3JTSUP 


03170 


BRSTA 


00546 


BURST 


00524 


BUST 


00556 


CBANK 


00613 


CBOTH 


01236 


CEND 


00567 


CFLG 


02544 


CKAL 


00464 


CKERR 


02151 


CKFCD 


02317 


CKIST 


21227 


CKNXT 


02226 


CKXY 


'30«?1 


:k3 


-2057 


Cl M\ 


.72645 


c[x 


73500;" 


ChOVt 


.'2 12 5 


CNROT 


01626 


CNTRi_ 


03126 


CO^RL 


C0414 


CREAD 


30366 


CREV* 


^1753 


:rlf 


-'2072 


CT?2 


03141 


CTZ* 


-3146 


zy\t~ 


33145 


"T16 


-3144 


ZTit 


-'3142 


Clt< 


•'3143 


3EST\ 


-3173 


:fst 


"1117 


j;\; 


-'2421 



MXC15S 
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HXC15U 



MXC15B 



□ LMT 


32652 


DLMTA 


22713 


DLST 


l»117l 


UNMVE 


02221 


DOALL 


30317 


QQERP 


£3735 


DQN1 


32656 


00N2 


32661 


D0N3 


02672 


OOXY 


30537 


EBA 


707764 


EEM 


707702 


ENERR 


22675 


ENOT 


32525 


EOM 


01475 


EOT 


31467 


EOTA 


01501 


EPA 


707762 


EQUAL 


32176 


ERROR 


00666 


ERSEU 


02712 


ERSET 


30466 


ERTSL 


02674 


ERWRD 


3325E 


EXAM2 


3e275 


EXAP3 


130301 


ExBA 


7Z7741 


EXIT 


33156 


EXREL 


20305 


EXTST 


30271 


f ADR 


01106 


PADRi 


32762 


fCOMV 


02307 


FIRSTI 


2)3147 


^LAGS 


23121 


fRST 


03063 


30 AT 


32725 


GDATX 


22707 


3ENPAT 


30377 


GETAO 


01621 


SOFL 


32702 


GOFLD 


33101 


50LEFT 


£•'1645 


iOODl 


03153 


32T0 


-'2452 


-<Al.T 


30653 


:ndy 


a 1 B 6 


KSFLC 


33122 


-« = 3 


32615 


<£VJM 


31544 


\*3 


733312 


<sr 


733301 


KVSRO 


31034 


<1 


33204 


*li? 


..'3207 



PAGE. 52 



KXC15B 



KXC15B 



K10K 

K17 5 
K177 
-\2 

K20 

«20Z 
K212 
K21» 
*254 

K262 
K263 

K27H? 

K332K 
K331 

K37SJK 
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130501 
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33133 
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03132 


PATWD 


33134 


PAX 
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PCW 


33125 


PCWA 
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33130 


PCWC 
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PCWR 


02734 


PCWX 


"2711 
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PJNX 


33176 


PtSlN 


02667 
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03013 
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